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ПРЕДИСЛОВИЕ 


В одном из предыдущих сборников серии 1 излагались начальные 
сведения о персональных компьютерах (ПК) и возможностях их 
применения. Мы продолжаем знакомить читателя с этим за¬ 
мечательным инструментом современной научно-технической 
революции. 

Массовость данного класса вычислительных машин обусловле¬ 
на не только их многообразными применениями на производстве, 
в науке и быіу, но и увлекающей стихией игры, которая сопро¬ 
вождает персональные компьютеры с момента их изобретения. 

Самые различные пользователи ПК единодушно утверждают — 
и в шутку и всерьез, — что ”нет таких дисплеев, которые большую 
или меньшую часть времени не были бы заняты компьютерными 
играми”. Судя по всему, дань играм отдает каждый или почти 
каждый человек, приступающий к общению с ПК, - и новичок, 
попеременно нажимающий клавиши, чтобы его "гоночная маши¬ 
на” успешно объехала все "препятствия”, и профессионал, чья 
”игра” подчас — образец высокого искусства программирования. 
При весьма широком диапазоне игровых ситуаций, удовлетворяю¬ 
щих различные потребности людей, занятых диалогом с ПК, важно 
не столько формальное уточнение того, что такое "компьютерная 
игра”, сколько глубокая проработка целого ряда практических и 
теоретических проблем: какими должны быть компьютерные 
игры для разных категорий пользователей? как связать 
компьютерную игру с освоением конкретного навыка (дисципли¬ 
ны)? каков удельный вес компьютерных игр в эффективном 
обучении соответствующей дисциплине? как организовать 
"компьютерный досуг” молодежи? 

Эти и многие другие проблемы, поставленные реальностью ми¬ 
ра компьютерных игр, оказались весьма сложными. Сам процесс 
развития и распространения компьютерных игр обнаружил мно¬ 
жество противоречивых сторон. Вначале многие энтузиасты виде¬ 
ли в компьютерных играх только "волшебную палочку”, которая 
создается самой компьютерной революцией для облегчения массо- 

1 Персональные компьютеры. Информатика для всех. - М.: Наука, 1987. - 
145 с. 
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вой компьютеризации общества, для подготовки квалифициро¬ 
ванных специалистов будущего. Но со временем обнаружились 
и стали вызывать все большую озабоченность теневые стороны — 
прежде всего, гипертрофированное увлечение части подростков 
компьютерными играми. Психологи (и не только они) обратили 
внимание на то, что большая часть популярных компьютерных 
видеоигр не предполагает постановки развивающих интеллек¬ 
туальных задач. Оказалось, что красочный и увлекающий мир 
компьютерных игр способен породить еще одну разновидность 
пустого времяпрепровождения. И это не может не тревожить ро¬ 
дителей и педагогов. 

Как и в некоторых других ситуациях, проблема здесь, конечно, 
не в том, нужны или не нужны компьютерные игры, а в том, как 
наилучшим образом организовать эту сферу обучения и досуга, 
как наилучшим образом раскрыть познавательный потенциал 
компьютерных игр. 

Надо использовать увлечение молодежи компьютерными игра¬ 
ми для развития познавательных способностей, для повышения 
эффективности обучения в той или иной конкретной области и 
для всестороннего изучения компьютеров. Компьютеризованное 
рабочее место предстоит освоить в ближайшем будущем не толь¬ 
ко ученому или конструктору, но и людям самых разных профес¬ 
сий. Компьютерные игры могут оказать незаменимую помощь 
в эффективном овладении компьютером. Ведь играть с по¬ 
мощью ПК - значит неформально осваивать различные виды 
деятельности, связанные с использованием компьютера, создавать 
предпосылки свободного владения компьютером, превращающим 
его в инструмент творчества. Результатом игры может быть 
приобретение очень весомых, очень серьезных знаний и навыков. 
Чрезвычайно важно также реализовать в практике обучения есте¬ 
ственный переход от компьютерных игр к производственным, 
научным и другим практически важным задачам. 

Компьютерные игры несомненно заслуживают самого серьез¬ 
ного отношения к себе. Здесь возникает много комплексных 
проблем, требующих совместной работы педагогов, програм¬ 
мистов, психологов, экономистов и других специалистов, при¬ 
званных ускорить освоение новых возможностей вычислительной 
техники в сфере образования, досуга, развития личности. Перво¬ 
очередное значение имеет повышение качества подготовки препо¬ 
давателей информатики средней и высшей школы, от которых во 
многом зависят дальнейшее развитие и уровень культуры 
компьютерных игр в нашей стране. 

Прогнозируя будущее компьютерных игр, на наш взгляд, 
целесообразно использовать ценный опыт развития в СССР такой 
интеллектуальной игры, как шахматы. В частности, известно, что 
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в лучших шахматных центрах подготовка начинающих шахматис¬ 
тов далека от стихийного практицизма, она основывается на 
серьезных занятиях шахматной теорией, на разборе партий силь¬ 
нейших шахматистов, на регулярных гроссмейстерских консуль¬ 
тациях и т.п. Подобно шахматам, компьютерные игры не только 
форма увлекательного времяпрепровождения, но и область, где 
можно и нужно планировать рост квалификации "игрока”, гото¬ 
вить его к решению все более сложных, все более увлекательных 
задач. 

Разным аспектам компьютерных игр будут посвящены несколь¬ 
ко сборников серии. Один из подходов к этой поистине необъят¬ 
ной теме реализуется в данной книге, где тщательно отобраны и 
прокомментированы занимательные игры-программы. Написан¬ 
ные в основном на популярном языке Бейсик, эти программы — 
хороший путь к знакомству с персональным компьютером. 
По объему они сравнительно невелики, что позволяет привести их 
в книге полностью. Вы можете сами ввести в компьютер публи¬ 
куемые тексты и поиграть. Игровой элемент создает заинтересо¬ 
ванность и тем самым стимулирует преодоление технических 
трудностей, которые иначе могли бы отбить охоту к новому делу 
еще на ранней стадии. 

Многие пытливые читатели с помощью этой книги могут приоб¬ 
щиться к программированию. Авторы старались приводить не 
только "голые” тексты программ, но и различные соображения 
о том, как "устроена” компьютерная игра, с помощью каких 
приемов она создается, в каком направлении может быть усовер¬ 
шенствована. На основе этих соображений читатель может попро¬ 
бовать самостоятельно видоизменить игру в соответствии с осо¬ 
бенностями своего компьютера, личными вкусами или амби¬ 
циями, пожеланиями друзей. Дальнейшим шагом в этом направле¬ 
нии будет составление собственных игровых, а может быть, и 
вполне серьезных, практически полезных программ. 

Тексты программ (листинги) собраны в самостоятельный раз¬ 
дел (см. гл. 10) и пронумерованы, а в том месте книги, где рас¬ 
сказывается о программе, на соответствующий листинг дается 
ссылка. Если читатель захочет ввести текст программы в доступ¬ 
ный ему компьютер, следует воспользоваться имеющимися на 
нем программными средствами: либо непосредственно Бейсик- 
иитерпретатором, либо текстовым редактором. 

Наибольшим препятствием в использовании текста игровых 
программ, приводимых в книге, будет, вероятно, различие 
в диалектах (версиях) Бейсика, что потребует видоизменения 
текста, главным образом в тех случаях, когда употребляемые 
операторы языка отражают аппаратные особенности компьютера 
(например, графические, цветовые или звуковые). Каждая про- 
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грамма в виде комментария в начальных строках содержит ин¬ 
формацию о том варианте Бейсика, который необходим для ее 
запуска. Часть игр написана на стандартном подмножестве Бейси¬ 
ка, и тем самым они переносимы на разные ПК. Наиболее ин¬ 
тересные элементы игры, однако, часто связаны с ее внешним 
оформлением, которое требует нестандартных средств языка. 
Поэтому приводится некоторое количество программ, исполь¬ 
зующих эти средства, в частности операторы графики и звука. 

В качестве подспорья для разрешения трудностей при изучении 
текстов программ в книгу включено краткое описание одного из 
наиболее распространенных диалектов Бейсика (см. Приложение). 


Академик И.М. Макаров 



ВВЕДЕНИЕ 


Работая над книгой, авторы ставили перед собой две основные 
задачи: 

1) привести тексты (листинги) разнообразных игровых про¬ 
грамм на Бейсике (их в книге более шестидесяти); 

2) обсудить некоторые общие вопросы, связанные, в частно¬ 
сти, с классификацией и внутренней структурой компьютерных 
игр вплоть до рекомендаций по самостоятельному программиро¬ 
ванию. 

Авторы стремились подобрать программы наиболее типичные и 
в то же время относительно небольшие по объему. Как при отборе 
программ, так и при определении общей структуры материала 
авторы основывались на собственном опыте разработки и исполь¬ 
зования компьютерных игр, на обширной библиотеке игровых 
программ, имеющейся в ВЦ АН СССР, и на доступной литературе 
(список которой приведен в конце книги). Программы протести¬ 
рованы и снабжены необходимыми комментариями. Для каждой 
из них, в том числе для заимствованных, указываются авторы- 
программисты (если они известны, ибо часть программ, как это 
бывает и с литературными произведениями, распространяется ано¬ 
нимно) , а также тот диалект Бейсика, на который они рассчитаны. 
Все англоязычные тексты в листингах программ (комментарии, 
выдаваемые сообщения) переведены авторами книги на русский 
язык. Читателю следует быть внимательным и учесть, что некото¬ 
рые знаки в листингах (кавычки, апострофы, двоеточия и др.) 
зачастую практически сливаются с предшествующим символом. 

Авторы приносят благодарность С.А. Абрамову, В.М. Брябри¬ 
ну, В. В. Пономареву и школьникам Дмитрию Андросюку, 
Антону Лихачеву, Андрею Панских за помощь, оказанную при 
подготовке материала книги. 
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ГЛАВА 1 


КАКИЕ БЫВАЮТ ИГРЫ 

Согласно "Советскому энциклопедическому словарю” игра — 
это ”вид непродуктивной деятельности, мотив которой заклю¬ 
чается не в ее результатах, а в самом процессе ... тесно связана со 
спортом, военными и другими тренировками, искусством (особен¬ 
но его исполнительскими формами) ... Имеет важное значение 
в воспитании, обучении и развитии детей как средство психологи¬ 
ческой подготовки к будущим жизненным ситуациям”. 
Это определение в основном приложимо и к компьютерным 
играм. 

По американской статистике, на 1971 г. 99% машинного вре¬ 
мени во всем мире затрачивалось на коммерческие расчеты и 
лишь 1% — на все остальное. С выпуском значительного числа 
персональных компьютеров ситуация существенно изменилась. 
Сейчас довольно большую часть времени компьютеры затрачивают 
на ... игры. По зарубежным источникам, свыше 60% компьютеров 
приобретается с целью развлечения. В настоящее время для ЭВМ 
разработан целый спектр игр, вызывающих интерес у самого ши¬ 
рокого круга лиц, от детей двух- или трехлетнего возраста 
до серьезных ученых или администраторов. Кроме того, компьюте¬ 
ры играют между собой — вспомните о регулярно проводящихся 
турнирах шахматных программ. 

Большинство компьютерных игр имеют чисто развлекательный 
характер. Однако некоторые из них воспроизводят — иной раз 
довольно неплохо — социальные, экономические, логические, 
биологические и другие закономерности и таким образом позво¬ 
ляют познавать их в игровой обстановке. 

В этой главе мы рассмотрим различные классы игр и дадим их 
краткую характеристику. Начнем с разбора нескольких программ, 
принадлежащих к разным классам. Проводимый здесь анализ 
можно рассматривать как образец для самостоятельного, более 
детального исследования читателем всего остального корпуса 
программных текстов. Мы надеемся, что комментарии, которыми 
мы постарались снабдить ключевые места программ, помогут 
в этом. 
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1.1. Несколько программ с комментарием 

"Фигуры Лиссажу” (листинг 18). Строго говоря, это не игра. 
Участие человека здесь сводится к простому наблюдению. 
Мы будем относить такие игры к категории "живых картинок”. 
Такая картинка уже не просто рисунок, изображение — она живет, 
и эта жизнь является или иллюстрацией технических возможно¬ 
стей компьютера, или наглядным отображением какого-либо 
"процесса”, описываемого в нашем случае математическим соот¬ 
ношением. 

"Живые картинки” — наиболее простые игровые программы. 

"Тренировка в счете” (листинг 38). Это простейшая обучаю¬ 
щая программа, использующая "врожденные” способности 
компьютера — расчетные. Такая программа, безошибочная, неуто¬ 
мимая и быстрая, имеет все основания заменить учителя-человека, 
для которого проверка арифметического умения ученика являет¬ 
ся удручающе однообразной работой. 

Идея и структура программы довольно прозрачны. "Ученику” 
предлагается избрать одно из арифметических действий, в кото¬ 
ром он будет практиковаться: сложение, вычитание, умножение 
или деление. (Имеется также возможность получать задачи на все 
действия вперемежку.) Далее программа выбирает случайным об¬ 
разом числа из заданных обучаемым диапазонов и использует их 
как операнды в арифметическом действии. Обучаемый должен 
правильно назвать результат. Проверив правильность ответа, 
программа выдает соответствующее уведомление и повторяет 
упражнение. "Урок” завершается учеником заранее установлен¬ 
ным образом. 

В строках 40—70 — "приветствие” программы; в строках 
80-206 — "правила игры”, которые выдаются по желанию обу¬ 
чаемого. В сіроке 220 выбирается арифметическое действие; 
далее, в строках 240- 250 задаются ограничения на операнды, 
после чего (строки 280—380) случайным образом формируется 
арифметический пример. Оператор в строке 390 служит переклю¬ 
чателем на одну из альтернативных ветвей программы в соответ¬ 
ствии с выбранным действием. В строке 640 проверяется правиль¬ 
ность ответа (или признак завершения "урока”). 

Программа не просто "ведет диалог”, а старается общаться 
"по-человечески”. При неверном ответе она подает ободряющие 
реплики (строки 670—760), при верном — хвалит ученика 
(строки 770-850). Цикл, в котором пользователю предъявляют¬ 
ся примеры, завершается передачей управления в строке 890. 
В заключение (строка 900 и далее) программа печатает результа¬ 
ты тестирования. 

"Не пересекай” (листинг 34). Это пример игры "на ловкость”, 
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в которой искусственная среда — движущиеся по площади экрана 
”ленты”, управляемые игроком (или двумя), — позволяет проде¬ 
монстрировать реакцию, скорость оценки меняющейся ситуации. 
Игра развивает изобретательность и к тому же весьма азартна. 

Достоинство программы в ее крайней простоте. Самыми неза¬ 
мысловатыми средствами Бейсика (используется вариант Бейсик- 
ИБМ), буквально несколькими десятками операторов, достигает¬ 
ся наглядность и увлекательность при очень простом управлении 
ситуацией со стороны участников. 

У каждого участника под руками по две клавиши: поворот 
вправо и влево. Каждый управляет лентой своего цвета, которая в 
отсутствии управляющих сигналов (нажатий клавиш) движется 
в одном направлении и поворачивает в указанном направлении 
при нажатии клавиши "вправо” или "влево”. Две пары клавиш 
выбраны в разных частях клавиатуры, чтобы партнерам было 
удобно, поскольку нажимать клавиши они будут почти одновре¬ 
менно. Игра заканчивается, когда один из участников "врезается” 
своей лентой в границу поля (ограниченного экраном) или в про¬ 
тивника. 

В четвертой строке программы функциональные клавиши Р 9 и 
РІО "приравниваются” клавишам X и 2, что дает возможность 
игроку, сидящему слева, пользоваться любой из этих пар клавиш. 
Игрок, сидящий справа, поворачивает свою ленту клавишами 
"плюс” и "минус”. 

Строка 10 содержит определения массивов: первые два имеют 
размерность 8 - по числу направлений движения (считая диаго¬ 
нальное перемещение); элементами массивов являются чис¬ 
ла 0, 1, —1, которые говорят об изменении координаты при дви¬ 
жении в данном направлении (координаты X — для первого мас¬ 
сива, координаты У - для второго). Засылка значений в массивы 
происходит с помощью операторов БАТА и КЕАБ в строках 20 
и 30. Затем (строки 40-58) ограничивается поле для игры с по¬ 
мощью рамки вдоль границ экрана. 

В строках 200 и 210 заключены последние приготовления 
к игре: переменные N1 и N2, которые будут в дальнейшем хра¬ 
нить направление движения каждого из двух игроков, получают 
начальные значения 2 и 6 соответственно ("вправо” и "влево”). 
Всего направлений восемь, от 0 до 7: 0 — север, вверх; 1 — севе¬ 
ро-восток, вверх—вправо... 7 — северо-запад, вверх—влево. 
Кроме того, устанавливаются начальные координаты — отправные 
точки движения каждой ленты. Обратите внимание, что коорди¬ 
наты У1 и У2 совпадают. В итоге при таких начальных значениях 
ленты начнут двигаться друг другу навстречу и столкнутся, если 
игроки не постараются этого избежать. 

Большая часть остального текста программы — это цикл, 
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внутри которого и осуществляется управление игрой. В стро¬ 
ке 400 программа принимает с клавиатуры последнюю нажатую 
(одним из игроков) клавишу. Если нажатия не было, то управле¬ 
ние сразу передается на строку 470, где производится (стро¬ 
ки 600—630) изменение координат обоих игроков в зависимости 
от текущего направления движения. Если же какая-то клавиша 
была нажата (непустое значение функции ДОКЕУ$), то программа 
анализирует ее (строки 420—460) и, если это одна из допустимых 
правилами клавиш, изменяет направление движения (вправо или 
влево, причем поворот происходит на половину прямого угла: 
север может измениться на северо-восток или северо-запад и т.п.) 

В строках 650—660 анализируется, не произошло ли столкнове¬ 
ния; это делается очень просто: проверяется с помощью функции 
8СКЕЕЫ (не путать ее с одноименным оператором) состояние 
игрового поля в тех точках, куда сейчас "доползли” ленты. 
Допустимым является символ "пробел” (код 32), что означает: 
данная позиция экрана свободна. В этом случае лента перемещает¬ 
ся: на экран в новую позицию пишется установленный символ (лен¬ 
та не что иное, как несколько соседних позиций экрана, занятых 
этим символом) и цикл игры повторяется со строки 400: анализ 
управления, изменение координат, проверка окончания, переме¬ 
щение лент. 

В противном случае (когда позиция игрового поля уже занята) 
игра закончена — один из игроков проиграл (или оба — например, 
при лобовом столкновении). В строках 1000—1010 об этом сооб¬ 
щается звуковым сигналом и изменением счета игры (количество 
партий, выигранных каждым, хранится в двумерном массиве 8С). 
Итак, на экране результат очередной партии, а новая начинается 
после нажатия произвольной клавиши — последние строки про¬ 
граммы 1020—1030. 

"Угадай число” (листинг 30). Это развивающая логическая 
игра, которая, впрочем, настолько проста, что представляет инте¬ 
рес лишь для младших школьников. Как только обучаемый 
"нащупает” принцип, по которому оптимально отгадывается чис¬ 
ло (это способ "деления на три” — троичный поиск), игра теряет 
для него всякую привлекательность. 

Суть игры в том, чтобы игрок отгадал "задуманное” програм¬ 
мой число за наименьшее количество попыток. 

После небольшой подготовки (строка 5), необходимой для 
того, чтобы в каждой новой игре задуманное число было другим, 
программа в строке 10 ограничивает себя максимумом (N=100), 
в пределах которого (т.е. от 0 до И) будет лежать задуманное 
число, и устанавливает количество шагов (С), за которое заве¬ 
домо можно его угадать, если применять правильную стратегию. 
При N=100 принимается С = 6 (см. разд. 3.10). 
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Программа выдает на экран правила игры, если игрок этого 
пожелает (строки 70—150). Они состоят в следующем. Играющий 
задает два произвольных ("пробных”) числа, а программа в ответ 
сообщает, какая из трех ситуаций налицо: искомое число больше 
обоих названных, меньше обоих или, наконец, заключено в интер¬ 
вале между ними. Игра кончается, если оба пробных числа совпа¬ 
дают между собой и с искомым: интервал стянулся в точку и 
загаданное число "поймано”. 

Программа "задумывает” число (переменная X) в строке 180 
(здесь используется датчик случайных чисел). В строках 200—330 
организован цикл по числу попыток: в строке 210 от играющего 
принимаются пробные числа (переменные А и В), в строке 230 
программа проверяет, каково соотношение между А, В, X и сооб¬ 
щает об этом (строки 280—320). По исчерпании выделенного 
числа попыток цикл оканчивается и с сожалением констатируется, 
что задуманное число — программа печатает его — не отгадано... 

Строкой 400 торжественно сообщается, что число отгадано! 
Игра затем может повториться по желанию игрока. 

"Коровы и быки” (листинг 26). Эту игру мы также относим 
к логическим играм. Она сложнее предыдущей и требует, как все 
логические игры, не столько скорости мышления, сколько его 
глубины и точности, умения анализировать варианты. Один из иг¬ 
рающих задумывает четырехзначное число, другой должен его 
угадать. На каждом шаге тот, кто отгадывает, называет какое-ли¬ 
бо четырехзначное число, загадавший сообщает, сколько цифр 
числа угадано (коровы) и сколько цифр угадано и стоит на нуж¬ 
ном месте (быки). Например, если загадано число 1346, а играю¬ 
щий назвал 1234, он получит ответ "бык, корова, корова”. 

Поставленную задачу нужно решить за наименьшее число логи¬ 
ческих шагов. В нашем случае первым игроком является 
программа. 

Известно несколько модификаций игры. 

В свое время, появившись на Западе в обычном механическом, 
очень простом исполнении (Ма$1егМтс1), игра быстро приобрела 
необычайную популярность. Сила ее в соединении нетривиальной 
логической основы с простым внешним оформлением. В механи¬ 
ческом варианте один из игроков устанавливает (это не видно 
другому играющему) контрольную комбинацию разноцветных 
фишек, а второй на каждом шаге выставляет "пробные" комбина¬ 
ции и получает информацию об угаданных цвете ("корова”) и 
позиции ("бык”) по сравнению с контрольгіой комбинацией 
фишек. 

Анализ игры см. в разделе 3.6. 
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1.2. Классификация игровых программ 

Развлекательные программы, написанные для компьютеров, 
по способу взаимодействия с человеком можно разделить на 
следующие три класса: собственно игры, игрушки и живые 
картинки. 

В процессе игры человек должен достичь некоторой заранее 
определенной цели. Достижение этой цели обычно называют 
выигрышем. Традиционный пример игры: шахматы. Цель игры — 
поставить мат королю соперника. 

В отличие от игр игрушки не ставят перед играющим 
какой-либо определенной цели, но лишь предоставляют ему воз¬ 
можности для манипуляций с ними. В качестве примера тради¬ 
ционных игрушек можно привести обычные детские автомобили. 
Компьютерные игрушки слабо представлены в этой книге. 
Примером этого класса игровых программ могут служить 
программы ”Жизнь” и "Паучья графика”, которые отнесены 
в главу 2 (см. разд. 2.5 и 2.8). 

Живые картинки — вид развлечения, бурно расцвет¬ 
ший после появления у компьютеров графических дисплеев . 
Здесь от человека не требуется почти никакой деятельности. 
Нужно только смотреть. Прототипами живых картинок можно 
считать различные виды калейдоскопов. К этому классу относит¬ 
ся вышеприведенная программа "Фигуры Лиссажу”. 

Наиболее широкий класс программ — собственно игры — мож¬ 
но подвергнуть дальнейшей классификации и выделить: 
логические игры, 
игры на "ловкость”, 
обучающие и тренирующие игры. 

Логические игры близки к традиционным математиче¬ 
ским загадкам, головоломкам, упражнениям, но облаченным 
в игровую форму. Примеры — игры "Угадай число” и "Коровый 
быки”. В этих играх главное не скорость, а правильное соображе¬ 
ние. Быть может, наиболее приемлема такая игра для людей, 
тяготеющих к сосредоточенной мыслительной работе, с небыст¬ 
рым, но глубоким складом ума. 

Игры "на ловкость” образуют практически бесконечную 
совокупность игр в придуманной, искусственной среде со своими 
собственными правилами. Если отвлекаться от того, что мы здесь 
имеем дело лишь с моделью, а не с реальностью, то игры на лов¬ 
кость очень напоминают обычные подвижные игры, где надо 
"успеть”, "догнать”, "убежать”, "поймать” и т.д. — скорость в них 
как раз основное (примером служит игра "Не пересекай"). 
Все эти понятия получают, конечно, свою интерпретацию в элек¬ 
тронной среде, и, естественно, такие компьютерные игры внешне 
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не похожи на те, которыми забавлялось человечество в доэлек¬ 
тронную и докомпьютерную эпоху. Ловкость понимается больше 
как "ловкость рук” (точнее, пальцев), однако сообразительность 
ценится в той же мере. 

Игры обучающие и тренирующие — это более 
серьезно. Эту форму правильнее будет определить как обучение 
или упражнение в игровой обстановке. Целью при этом является 
приобретение некоторого полезного навыка или знания. 
Примеры: упражнение в счете, в системах счисления, в иностран¬ 
ных языках и др. 

1.3. Анализ 

Краткий анализ должен показать, как нужно читать чужие и 
писать свои игровые программы. В сущности, строгих принципов 
не существует, но некоторые общие соображения могут облегчить 
составление программы, а главное — ее дальнейшие изменения и 
усовершенствования. 

Никакая игра не существует без правил. Это утверждение 
в равной, если не в большей степени относится к играм 
компьютерным. Причем в игровой программе правила носят более 
строгий и четкий характер: судьи не надо, сама программа следит 
за тем, как игрок (ученик, пользователь) их выполняет. 

Всякая игра предлагает играющему определенную обстановку 
и правила поведения в рамках этой обстановки. Это и есть, собст¬ 
венно, то, что называют правилами игры и что составляет ее 
неотъемлемую внутреннюю характеристику. 

С точки зрения программы (точнее, программиста) правила — 
это набор процедур, определенных над структурами данных 
(наборами переменных). Процедуры и данные в совокупности 
воплощают в себе "внутренний мир” игровой программы. 

В процессе игры внутренний мир постоянно меняется: во-пер¬ 
вых, по своим собственным законам, во-вторых, под воздейст¬ 
вием игрока (игроков). Таким образом, в каждый момент време¬ 
ни игра находится в некотором состоянии, что игрок ощущает 
как текущую обстановку. Ей соответствует состояние внутренних 
переменных — наполнение структур данных программы. 

Выделим следующие компоненты игровой программы: 
преамбула (начальная стадия), основной цикл, завершающие дей¬ 
ствия. Структуры данных определяются на начальной стадии; 
иногда они очень просты (несколько целых чисел), в наиболее же 
интересных компьютерных играх они, как правило, принимают 
довольно сложную форму. На начальной стадии экран обычно 
занимается некоторой исходной "позицией” игры: часто картин¬ 
кой, но в простых случаях это могут быть те же числа. 
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Исходная позиция, в сущности, представляет собой визуальный 
эквивалент начальных значений структур данных. 

В преамбулу выносятся также приветствие программы игроку 
(при этом может сообщаться имя ее автора и дата создания), 
а также вопрос о том, нужны ли правила. При утвердительном от¬ 
вете игрока на последний вопрос программа выдает на экран 
объяснительный текст. Если ответ отрицателен (обычно в случае, 
если игра ведется не первый раз и правила твердо усвоены), то 
игра переходит на следующую стадию. 

Основной цикл — это та часть программы, где, собственно, и 
происходит игра. Здесь параллельно и согласованно делаются 
две вещи: изменяются внутренние структуры данных (по прави¬ 
лам игры) и перестраивается их отображение на экране. Главной 
"заботой” программы в основном цикле является поддержка 
диалога с игроком. В самом общем случае программа принимает 
от него управляющие воздействия, выражающие его поведение 
в игре. Иногда эти воздействия можно трактовать как "ходы”. 
Управление чаще всего происходит в форме нажатий на "разре¬ 
шенные” клавиши клавиатуры, другие устройства ввода 
(джойстик, мышь) используются реже, как более экзо¬ 
тичные. 

После того как программа восприняла управляющие воздейст¬ 
вия игрока, необходимо, во-первых, произвести их анализ, 
во-вторых, изменить содержание внутренних структур данных 
(по правилам игры) и, в-третьих, отобразить эти изменения на 
экране дисплея, чтобы игрок увидел результат своих действий 
в виде новой ситуации. 

Основной цикл — и все упомянутые действия программы — 
повторяется много раз, до тех пор пока не будет достигнуто усло¬ 
вие окончания игры (также проверяемое внутри цикла). 
Таким условием может быть некоторая конечная позиция, нажа¬ 
тие игроком определенной клавиши ("конец игры”), ограничение 
на число повторений (шагов, или ходов игры) и др. 

Рассмотренная структура является, конечно, лишь приблизи¬ 
тельной и достаточно сильно варьируется в деталях для конкрет¬ 
ных программ. Чтобы облегчить изучение текста программы, 
используются комментарии, выделяющие ее узловые точки, 
предваряющие наиболее важные ее части. 

1.4. Проблемы переносимости 

Программы, которые собраны в этой книге, приводятся 
на языке Бейсик. Это обусловлено прежде всего самим характе¬ 
ром языка и той важной ролью, которую он играл и играет 
в "легкой промышленности” программирования, в производстве 

15 



небольших, несложных, большей частью игровых и развлекатель 
ных программ. * 

Но Бейсик многолик и неоднозначен. Существует немалое 
число его диалектов, иногда сильно различающихся между собой. 
Следствие этого очень простое: программа, написанная для одной 
машины (одного диалекта языка), вообще говоря, не сможет вы¬ 
полняться на другой машине (другом диалекте), т.е. не будет 
переносимой. До недавнего времени не было и речи о стандарте 
языка. На каждой, без преувеличения, машине работал свой соб¬ 
ственный интерпретатор. 

Скрасить ситуацию может следующее. Несмотря на всю разни¬ 
цу в диалектах Бейсика, они опираются на один общий прототип, 
”ядро” языка, которое практически неизменно от диалекта 
к диалекту. Операторы, составляющие ядро, касаются основных, 
самых насущных и неотъемлемых возможностей Бейсика. 
В принципе можно писать программы только на стандартном под¬ 
множестве, что будет гарантией их переносимости. 

Это, правда, почти все, что можно сказать в данной связи уте¬ 
шительного. Дело в том, что наиболее "интересные” возможности 
языка, такие, как графика, находятся за пределами ядра. 
(Графические возможности конкретного диалекта Бейсика тесно 
связаны с аппаратными особенностями ПЭВМ и поэтому всегда 
труднее поддавались стандартизации.) Нестандартны также неко¬ 
торые операторы приема с клавиатуры, управляющие конструк¬ 
ции и др. 

В то же время игровая программа, опирающаяся на графику, 
становится гораздо живее, нагляднее, выразительнее. Графические 
операторы позволяют "разрисовывать” экран по точкам; 
в их отсутствие для создания изображений приходится пользо¬ 
ваться обычными знаками (звездочка, вертикальная или косая 
черта и т.п.) с гораздо меньшей точностью. Для сравнения доста¬ 
точно сказать, что число точек в графическом режиме по каждому 
из двух измерений обычно в 3—8 раз больше, чем число знакомест 
(символов). "Графическая” модель, бесспорно, ближе к жизни, 
чем "символическая”. 

Именно поэтому многие игровые программы пользуются гра¬ 
фическими и другими нестандартными возможностями конкрет¬ 
ного диалекта. Для каждой такой программы полезно указывать, 
на какой диалект Бейсика она рассчитана, что и сделано в приво¬ 
димых листингах. 

Большая часть программ, использующих графику, дана на так 
называемом Бейсике-ИБМ [8]. В настоящее время это, бесспор¬ 
но, наиболее распространенный диалект языка на персональ¬ 
ных ЭВМ. Он послужил прототипом диалекта Альфа-Бейсик, 
используемого на отечественных ПЭВМ ЕС 1840/41, дляяпонско- 
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го стандарта М8Х— ВА8ІС , имеющегося в нашей стране на школь¬ 
ной ПЭВМ ”Ямаха”, а также для отечественного госстандарта 
Бейсика. В книге [8] содержатся некоторые сведения о разли¬ 
чиях в диалектах Бейсика. Эта информация облегчит модифика¬ 
цию программ при переносе на другую машину и другой интер¬ 
претатор. 


ГЛАВА 2 

ЖИВЫЕ КАРТИНКИ 

Этот вид программ, являясь, пожалуй, самым непритязатель¬ 
ным видом развлечения — разглядывай их, как ребенок разгляды¬ 
вает картинки в красочной книге, волшебном фонаре или калей¬ 
доскопе, — зачастую требует от своего создателя тонкого вкуса, 
художественных способностей и разносторонних знаний. 
Последнее обусловлено большим многообразием материала, 
который может стать основой будущей живой картинки. 
Таким материалом могут быть, например, закономерности, дей¬ 
ствующие в живой природе, математические зависимости, 
простейшие геометрические фигуры или сложные пространствен¬ 
ные тела необычной формы и многое другое — полный перечень 
необозрим. 

Не ставя перед собой целью охватить все возможные подходы 
к созданию живых картинок, мы проиллюстрируем только неко¬ 
торые, наиболее часто используемые. 

2.1. Простая геометрия 

Один из самых незамысловатых способов построения живых 
картинок основан на использовании элементарных геометриче¬ 
ских фигур - отрезков прямых, окружностей, квадратов, 
треугольников и т.п. Построенное изображение часто напоминает 
детские рисунки или картинки для игры в мозаику (рис. 1). 
Программировать такие картинки несложно, если, конечно, 
в языке есть средства для работы с графическими примитивами 
(так часто называют простейшие геометрические фигуры, о кото¬ 
рых идет речь), однако требуется предварительная кропотливая 
работа по определению размеров фигур и их размещению 
на экране. 

”Колодец” (листинг 1). Эта программа строит изображение 
из 30 вложенных квадратов. Длина стороны каждого следующего 
квадрата отличается от длины стороны каждого предыдущего 
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Рис. 1 Рис. 2 


на одну и ту же величину. Центр фигуры располагается в середине 
экрана, а сама она напоминает глубокий колодец, в который 
заглядываешь сверху. 

"Кораблик ” (листинг 2). Простая программа, с помощью кото¬ 
рой на экране можно получить рис. 2. 

2.2. Дело случая 

Много интересных картинок может быть построено с помощью 
датчика случайных чисел. Изображение, созданное с использова¬ 
нием случайных величин (определяющих, в частности, составляю¬ 
щие элементы изображения, их цвета, размеры и расположение 
на экране), обладает эффектом непредсказуемости, неповтори- 
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мости. Подробное описание нескольких приемов работы с датчи¬ 
ком можно найти в разделе 7.1. Здесь мы,предваряя это описание, 
рекомендуем обратить внимание на каждый конкретный случай 
использования датчика случайных чисел. 

”Смесь” (листинг 3). В этой программе изображение форми¬ 
руется случайным размещением на экране отрезков и окружно¬ 
стей произвольных размеров. Датчик случайных чисел исполь¬ 
зуется для выбора координат концов и цвета очередного отрезка 
(строка 50), а также для выбора радиуса, цвета и координат 
центра очередной окружности (строка 60). 

"Конфетти” (листинг 4). Еще один пример программы, в кото¬ 
рой используется датчик случайных чисел, — программа, строящая 
изображение из разнообразных символов, которые окрашиваются 
в разные цвета и произвольно разбрасываются по экрану. 

Датчик случайных чисел используется в программе для выбора 
очередного символа (строка 80), его цвета (строка 50) и положе¬ 
ния на экране (строки 60 и 70). 

Для тех, у кого вызвал недоумение способ выбора символа,за¬ 
метим, что результатом” обращения ШТ(224*К№)(1))+32 
к функции КН Б (датчику случайных чисел) является число из 
диапазона 32 ...255. Вы, вероятно, знаете, что символы, исполь¬ 
зующиеся в ПЭВМ, кодируются числами от 0 до 255. Исключение 
из рассмотрения в программе символов с кодами от 0 до 31 
вызвано тем, что эти символы являются управляющими — 
они выполняют некоторые специальные действия, связанные, 
например, с управлением дисплеем, звукогенератором или печа¬ 
тающим устройством. Вывод таких символов оператором 
РКШТ может повлечь результат, неуместный в данной програм¬ 
ме, например, звуковой сигнал или очистку экрана. 

2.3. "Калейдоскоп" 

Симметрия, прочно вошедшая в нашу жизнь, проникла и в на¬ 
ши программы: большое число созданных к настоящему времени 
живых картинок — это симметричные изображения. Фигуры, 
узоры, орнаменты и паркеты, формируемые на экране ПЭВМ, 
часто имеют несколько осей симметрии. 

Изображение, которое строится на экране программой 
"Калейдоскоп” (листинг 5), напоминает узор в детской игрушке. 
Изображение имеет две оси симметрии — невидимые прямые АВ 
и СЦ делящие экран на четыре части (рис. 3,д). Для формирова¬ 
ния изображения сначала выбирается точка в левом верхнем углу 
экрана (на рис. 3 ,а соответствующая область заштрихована). 
Выбор выполняется с помощью датчика случайных чисел (стро¬ 
ки 50 и 60). Полученная таким способом точка затем отражается 
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относительно прямых АВ и СБ, так, как показано на рис. 3 ,а 
(строки 80—100). 

Изображение станет более красочным, если при его построении 
использовать разные цвета. Номер цвета можно задать в цикле 
или выбрать с помощью датчика случайных чисел, например, так: 

65 С = ШТ(3*КШ(1)) + 1 
70 Р8ЕТ (X, У), С 
80 Р8ЕТ(319-Х, У), С 
90 Р8ЕТ(319—X, 199—V), С 

100 Р8ЕТ (X, 199—V), С 

Изображение можно немного усложнить, если использовать 
не две, а, скажем, четыре оси симметрии. На рис. 3,6 показаны 
предлагаемые оси симметрии, область, в которой с помощью дат¬ 
чика случайных чисел будет выбираться исходная точка (область 
заштрихована) и возможная последовательность построения сим¬ 
метричных точек (изображена стрелками). Подумайте, как изме¬ 
нятся в этом случае операторы в строках 70—100. 

2.4. Простота и красота 

Большое число разнообразных картинок может быть построено 
на основе математических зависимостей. Фигуры, созданные с их 
использованием, часто вызывают восхищение своей красотой и 
необычностью. 

”Павлин” (листинг 6). Программа фиксирует на экране поло¬ 
жения отрезка, концы которого перемещаются следующим обра¬ 
зом. Один из концов движется по горизонтальной прямой, прохо¬ 
дящей через центр экрана; для вычисления координат другого 
конца используются тригонометрические функции 8Ш и С08 
(строки 50 и 60). Результирующее изображение напоминает ска¬ 
зочную птицу (рис. 4). 

Попробуйте использовать для вычисления координат концов 
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отрезка другие зависимости, и вы получите не менее интересные 
картинки. 

"Кружева” (листинг 7). Узор, который рисует эта программа 
(рис. 5), образован следующим образом. На экране строятся вер¬ 
шины правильного восемнадцатиугольника, центр которого 
совпадает с центром экрана. Каждая из восемнадцати вершин 
соединяется отрезками со всеми другими вершинами. Координа¬ 
ты вершин задаются формулами 

Х| = Х с + К С 08 (2 7Г і / п ), 

Уі = У с + К зіп (2 яі/п), і = 1.18, 

где і - номер вершины; К — радиус окружности, описанной око¬ 
ло многоугольника; Х с , У с — координаты его центра. Во избежа- 





















Рис. 5 


ние повторного вычерчивания отрезков между одними и теми же 
вершинами каждая из них соединяется только с вершинами, 
имеющими больший номер. 

Измените количество вершин многоугольника (переменная N 
в строке 40) — и вы увидите, как изменится узор. 

"Убегающий квадрат” (листинг 8). Рисунок, вычерчиваемый 
данной программой (рис. 6), на первый взгляд кажется достаточ¬ 
но сложным, но при более внимательном рассмотрении оказы¬ 
вается, что он образован вложенными квадратами. Вершины каж¬ 
дого следующего квадрата делят стороны предыдущего в задан¬ 
ном отношении д. Таким образом, квадраты не только 
становятся все меньше и меньше, но и поворачиваются на неко¬ 
торый угол. 

Исходными данными для программы являются координаты 
левого верхнего угла внешнего квадрата (100, 50), длина его 

22 




Рис. 6 


стороны (сто точек экрана), количество квадратов, которые 
должны быть построены (30), и значение д =0,8. Для определе¬ 
ния координат вершин очередного квадрата используются соотно¬ 
шения, позволяющие по известным координатам концов отрезка 
(XI, У1), (Х2, У2) и заданному отношению (д), в котором 
некоторая точка делит этот отрезок, определить координаты 
(X, У) этой точки 

X = XI + д(Х2 — XI), У = У1 + д(У2 —У1). 



Рис. 7 
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"Геометрический узор” (листинг 9). Картинка, которая 
создается данной программой (рис. 7), состоит из нескольких 
узоров, подобных построенному в предыдущем примере. 
Эффект достигается определенным чередованием узоров, 
в каждом из которых квадраты вращаются либо по, либо против 
часовой стрелки: узоры, стоящие в строке и столбце, номера ко¬ 
торых являются числами одной четности, образованы вращением 
квадрата по часовой стрелке; узоры, стоящие в строке и столбце, 
номера которых являются числами разной четности, образованы 
вращением квадрата против часовой стрелки. 

Узоры такого рода часто строятся авторами живых картинок 
на основе не только квадратов, но и других многоугольников, 
например треугольников или пятиугольников. Дополнительной 
проблемой, которая возникает при таком построении, является 
расположение отдельных многоугольников на экране. 

2.5. Картина "жизни" ... 

Создаваемые картинки могут быть основаны на закономерно¬ 
стях, имеющих место в живой природе. 

Программа "Жизнь” (листинг 10) моделирует жизнь поколе¬ 
ний гипотетической колонии живых клеток, которые выживают, 
размножаются или погибают по определенным правилам. 
Эти правила были предложены Дж. Г. Конвэем и заключаются 
в следующем. Клетка выживает в том и только в том случае, 
если она имеет двух или трех соседей из восьми возможных 
(рис. 8, а ). Если у клетки только один сосед или вовсе ни одного, 
она погибает в изоляции (рис. 8, б ). Если клетка имеет четырех 
или более соседей, она погибает от перенаселения (рис. 8,в). 
В любой пустой позиции, у которой ровно три соседа, в следую¬ 
щем поколении появляется новая клетка (рис. 8, г). 

Жизнедеятельность колонии протекает на поле размером 
30 X 30 позиций, каждую из которых может занять одна клетка. 
Начальное размещение клеток на поле задается играющим (стро¬ 
ки 140—230). Им же указывается, какое число поколений исход¬ 
ной колонии следует отобразить на экране (строки 50—100). 



Рис. 8 
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Каждое следующее поколение определяется в программе по 
описанным правилам (строки 240—490) и отображается на экране 
с дополнительным сообщением о том, сколько клеток оно содер¬ 
жит (строки 500—630). 

2.6. ... И жизнь картинок 

Характерная особенность следующих нескольких программ 
заключается в том, что они создают картинки, обладающие дина¬ 
микой. Все время существования изображения на экране его от¬ 
дельные элементы изменяют свой цвет или местоположение, 
двигаясь скачкообразно или плавно. Такое поведение делает 
картинки действительно живыми. 

”Круги на воде” (листинг 11). Эта программа строит изображе¬ 
ние из нескольких концентрических окружностей. Поочередное 
изменение их цветов напоминает поверхность воды, возмущенную 
брошенным камешком. 

"Летящий самолет” (листинг 12). В этой программе экран 
пересекает точка, напоминающая далекий самолет, пролетающий 
в вечернем небе. 

Обратите внимание на то, как в программе обеспечивается 
"полет” самолета: в 40-й строке мы высвечиваем очередную точ¬ 
ку, в 60-й строке стираем ее. Подобный прием создания на экране 
движущегося объекта является общепринятым при работе 
на ПЭВМ. Подробнее о нем см. в главе 7. 

"Блуждающая звезда” (листинг 13). Движущийся объект, 
созданный этой программой, становится более крупным — 
это уже не отдельная точка, как в предыдущем случае, а "звезда”, 
образованная четырьмя соседними точками экрана. Звезда то за¬ 
горается, то гаснет, появляясь в разных местах экрана. 

"Прыгающий НЛО” (листинг 14). Поведение НЛО, созданного 
этой программой, похоже на поведение звезды из предыдущего 
примера: он также появляется то в одной позиции экрана, 
то в другой, отличаясь лишь тем, что все время меняет цвет и 
изредка издает звуковой сигнал. НЛО "образован” отдельными 
символами так, как показано на рис. 9. Звук раздается тогда, 
когда составляющий НЛО левый верхний символ \ попадает 
в позицию, координата X которой удовлетворяет условию 
X шо<112 = 0. 

"Танцующий НЛО” (листинг 15). Движение этого НЛО стано¬ 
вится более плавным: он движется то в одном направлении, 
то в другом, смещаясь каждый раз на выбранное наугад рас¬ 
стояние. 

Обратите внимание на то, как изменилась форма НЛО (рис. 10), 
а с изменением формы изменился и способ работы с ним (строки 
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Рис. 9 


Рис. 10 


270-320). Как и ранее, НЛО движется благодаря тому, что мы 
повторяем одну и ту же последовательность действий: высвечи¬ 
ваем его на экране, затем стираем, после чего вновь высвечиваем, 
но уже в новой позиции (см. гл. 7). 

Второй вариант этой программы дан для диалекта М8Х-ВА8ІС 
(листинг 16). Он может использоваться, например, на школьной 
ПЭВМ ”Ямаха”. Обратите внимание, насколько упростилась 
программа благодаря встроенным в язык эффективным средст¬ 
вам управления динамичными фрагментами изображения. 


2.7. Немного физики и математики 


”Пять кривых” (листинг 17). Эта программа строит на экране 
кривые, хорошо известные любителям математики: спираль 
Архимеда, улитку Паскаля, кардиоиду, трилистник и четырех- 
листник. Уравнения кривых в полярных координатах имеют сле¬ 
дующий вид (напомним, что полярные координаты р, у точки М 
на плоскости — это расстояние р = ОМ от фиксированной точ¬ 
ки 0 (полюса) до точки М и угол <р =і. РОМ между ОМ и поляр¬ 
ной осью (полупрямой) ОР (рис. 11)): 


спираль Архимеда 
улитка Паскаля 
кардиоида 
трилистник 
четырехлистник 


— р = а ір, а > 0; 

— р = а соз і^+1, а > 0, I > 0; 

— р - а(1 + созі^), а > 0; 

— р = а соз 3 ( р, а > 0; 

— р = а соз 2 ( р, а > 0 


Угол (р изменяется в программе от 0 до 2 п, пересчет полярных 
координат в декартовы выполняется по формулам 


х = р соз ір, у = р зіп <р. 

"Фигуры Лиссажу” (листинг 18). Эти кривые получили свое 
название по имени французского физика, который в 1863 г. пер¬ 
вым дал их описание. Фигуры Лиссажу представляют собой ре¬ 
зультат сложения двух гармонических колебательных движений, 

26 








совершаемых во взаимно перпендикулярных направлениях. 
Примером тела, участвующего в таких движениях, может служить 
маятник, изображенный на рис. 12. 

(Напомним, что гармоническими называются такие колебания, 
при которых отклонение х тела от положения равновесия изме¬ 
няется по закону х = азіп (оЛ + і р ), где а — амплитуда, со — часто¬ 
та, <р — начальная фаза колебаний. Гармонические колебания со¬ 
вершают, например, математический маятник или напряжение 
в контуре электрической цепи.) 

Фигуры Лиссажу характеризуются уравнениями 

х = а х зіп (с^т + і^), 

у = а 2 зіп (сс 2 1 + Ч> 2 ) 

и могут быть довольно сложными, особенно при близких частотах 
продольных и поперечных колебаний. На рис. 13 показаны кри¬ 
вые, отвечающие уравнениям соответственно: 

а) х = $іп 3 1 , 
у = зіп 51; 

б) х = зіп 3 1 , 
у = зіп 41; 

в) х = $іп(і - 45°), 
у = зіпг. 

С помощью данной программы вы можете наблюдать влияние 
частот продольных и поперечных колебаний, а также начальной 
фазы продольных колебаний на форму фигур. 

"Траектория спутника” (листинг 19). Программа определяет 
траекторию спутника некоторого крупного космического тела. 
Исходными данными для вычислений являются координаты спут¬ 
ника и его скорости по осям ОХ и ОУ в момент, когда начинает¬ 
ся наблюдение, время, в течение которого это наблюдение будет 
производиться, и интервал, через который следует отображать 
на экране текущие координаты спутника. 
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Для вычислений используются формулы, хорошо знакомые 
еще из школьного курса физики. Согласно закону всемирного 
тяготения 

Р = -7 Мт/ й 2 , 

где Р — сила, с котгрой притягиваются два тела массы ш и М, 
находящиеся на расстоянии сі друг от друга; у — гравитационная 
постоянная. Пользуясь вторым законом Ньютона 

Р = ша, 

мы можем определить ускорение спутника 
а = - 7 М/Й 2 . 

Предположив для простоты, что масса М космического тела, 
вокруг которого движется спутник, такова, что 7 М = 1 , получим 

, а = — 1 /й 2 . 
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2.8. "Паучья" графика 


Те, кто знаком с языком программирования Лого, помнят, 
конечно, его главное "действующее лицо” — черепашку, управляя 
которой программист чертит на экране произвольные линии при¬ 
мерно так, как это делается обычным карандашом на обычной бу¬ 
маге. Воображаемая черепашка исполняет простейшие команды: 
вперед, назад, поворот ... 

Автор данной программы (листинг 20), вероятно, решил посо- 
перничать с черепашьей графикой и предлагает взамен ее паучью. 
И, действительно, получающийся на экране рисунок напоминает 
паутину: линии идут из одной точки и расходятся в разные 
стороны. 

"Паучью графику” можно отнести к категории компьютерных 
"игрушек” (см. разд. 1.2). Играющий манипулирует клавишами, 
порождая узор на экране. Программа высвечивает на экране текст, 
поясняющий действие тех или иных клавиш (строки 362—376). 
Когда игрок выполняет одну из возможных операций, на экране 
может возникнуть дополнительная подсказка — например, набор 
цветов при операции изменения цвета (строки 810—817). 

Проанализируйте, как организован ввод и контроль управ¬ 
ляющих воздействий с клавиатуры (строки 1090—1110 и 
400-500). 

Попробуйте ввести программу в компьютер и с ее помощью 
сплести что-нибудь ... 


ГЛАВА 3 

ЛОГИЧЕСКИЕ ИГРЫ 

3.1. "Волшебный квадрат" 

Волшебным квадратом порядка п называют квадрат, который 
состоит изпХп клеток, заполненных первыми п 2 натуральны¬ 
ми числами так, что суммы чисел, стоящих в любой строке или 
столбце квадрата, а также на любой из его диагоналей, равны од¬ 
ному и тому же числу з = п(п 2 + 1)/2. В качестве примера на 
рис. 14 приведен известный волшебный квадрат ^Дюрера, ко¬ 
торый был изображен художником на одной из его картин. Два 
числа, стоящих посередине нижей строки квадрата, образуют чис¬ 
ло 1514 - год создания картины. 

В программе, которая рассматривается в этом разделе, исполь¬ 
зован волшебный квадрат размером 3X3. Такой квадрат запол¬ 
няется числами от 1 до 9. Суммы чисел, стоящих в любой строке. 
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или столбце, а также на любой из диагоналей 
девятиклеточного волшебного квадрата, долж¬ 
ны быть равны 15. 

Играют два участника - человек и програм¬ 
ма. Цель игры — правильно заполнить волшеб¬ 
ный квадрат. В свой ход — ходы делаются по¬ 
очередно — каждый игрок указывает число и 
клетку квадрата, в которую это число должно 
быть занесено. Проигрывает тот, кто первым 
нарушает условие о равенстве 15 хотя бы одной из соответствую¬ 
щих сумм. 

Тому, кто хочет играть с программой самостоятельно, без на¬ 
шей подсказки, мы советуем пропустить все последующие рас¬ 
суждения до начала описания программы — в них будет показано, 
как следует расставлять числа в девятиклеточном квадрате. 

Нетрудно убедиться, что число 15 может быть представлено 
в виде суммы каких-либо чисел из диапазона 1 ...9 следующими 
восемью способами: 
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Рис. 14 


15=1+5+9 

15=2+4+9 


15=1+6+8 

15=2+5+8 


15=2+6+7 

15=3+5+7 


15=3+4+8 

15=4+5+6 


О) 


Попытаемся определить, каким условиям должны отвечать 
числа, стоящие в центральной, угловых и прочих клетках волшеб¬ 
ного квадрата. 

1. Через "центральную клетку проходят четыре трехклеточных 
ряда: средние строка и столбец квадрата и две его диагонали. 
Тем самым в центральной клетке должно стоять число, которое 
входит в суммы (1) не менее четырех раз. Внимательно посмот¬ 
рев на эти суммы, нетрудно убедиться, что данному условию 
удовлетворяет только число 5. 

2. Через угловые клетки квадрата проходит по три трехклеточ¬ 
ных ряда: строка, столбец и диагональ. Это значит, что в угловых 
клетках должны стоять числа, которые входят в суммы (1) не 
менее трех раз. Это числа 2,4, 6 и 8. 

3. Через любую из оставшихся клеток квадрата проходят по 
два ряда: строка и столбец — следовательно, в этих клетках 
должны стоять числа, которые входят в суммы (1) не менее двух 
раз, т.е. числа 1, 3, 7 и 9. 

Поместив 5 в центральную клетку квадрата и расставив по его 
углам числа 2, 4, 6 и 8, мы однозначно определим, как должны 
быть расставлены числа 1, 3,7 и 9. 

На рис. 15 показаны два девятиклеточных волшебных квадрата. 

Основные переменные программы "Волшебный квадрат” 
(листинг 21): 
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Рис. 15 
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Массив А. Хранит информацию о том, как расставлены числа 
в квадрате. Значение его элемента равно числу, стоящему 
в соответствующей клетке квадрата, или нулю, если эта 
клетка пуста. 

Массив В. Содержит сведения о том, было ли использовано 
каждое из первых девяти натуральных чисел при заполнении 
квадрата. Значение его элемента равно нулю, если соответ¬ 
ствующее число еще не было использовано, и равно единице 
в противном случае. 

Переменная IV. Ее значение становится равным единице, когда 
очередной ход, сделанный игроком или программой, нару¬ 
шает условие о равенстве 15 суммы чисел любого трехкле¬ 
точного ряда. Если это условие выполнено, значение пере¬ 
менной равно нулю. 

Переменная М. Имеет значение, равное числу ходов, сделанных 
игроком, играющим первым. Значение переменной, рав¬ 
ное 5, говорит о том, что игра сыграна вничью. ' - 

Программа не является слишком сложной. Здесь мы обсудим 
лишь использованный способ выбора очередного хода (стро¬ 
ки 300—550). Сразу заметим, что ход выбирается программой 
почти наугад — находится первая пустая клетка квадрата (стро¬ 
ка 410) и делается попытка заполнить ее любым числом, которое 
еще не было использовано в игре (строки 430-435). Если этот 
ход не ведет к немедленному проигрышу (строки 440—450), он 
выполняется (строка 520). В противном случае делается попытка 
разместить в этой клетке другое неиспользовавшееся число (стро¬ 
ки 460-470). Если таких чисел больше нет, ищется следующая 
пустая клетка и процесс повторяется (строка 480). 

Такой способ выбора хода не слишком интересен, хотя и мо¬ 
жет привести к неожиданным результатам. Попробуйте усовер¬ 
шенствовать его, воспользовавшись изложенными выше сообра¬ 
жениями о том, как следует заполнять девятиклеточный волшеб¬ 
ный квадрат. 
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3.2. "Вращающийся квадрат" 

"Вращающийся квадрат” — еще один пример логической игры. 
Эта игра несколько похожа на известный кубик Рубика. 
Играет один человек. Перед ним доска размером 4X4 клетки, 
в которых в произвольном порядке расставлены буквы латин¬ 
ского алфавита от А до Р. Цель игры — расположить буквы по ал¬ 
фавиту. Делается это благодаря особому устройству доски: 
любой квадрат, образованный четырьмя соседними клетками, 
можно вращать по часовой стрелке. За каждый ход квадрат пово¬ 
рачивается ровно на одну клетку. В распоряжении игрока также 
имеется дополнительная операция, которую можно использовать 
только один раз, — перестановка двух соседних букв любой 
строки. 

Основные переменные программы "Вращающийся квадрат” 
(листинг 22): 

Массив В|. Показывает текущее расположение букв на игро¬ 
вой доске. Значение его элемента — это символ, стоящий 
в соответствующей клетке игровой доски. 

Переменная М. Ее значение равно числу ходов, сделанных 
в текущей партии. 

Переменная М1. Ее значение равно общему числу ходов за игру. 

Переменная С. Имеет значение, равное числу сыгранных партий. 

Переменная 8. Ее значение равно номеру попытки, предприня¬ 
той игроком по перестановке двух соседних букв строки. 
Перестановка будет выполнена программой, только если 
значение 8 равно единице. 

3.3. "Черный ящик" 

Черный (непрозрачный) ящик содержит игровую доску разме¬ 
ром 8X8 клеток. По доске разбросано несколько шаров, так что 
каждый шар занимает ровно одну клетку. Цель играющего — 
определить, в каких клетках расположены шары. Для этого 
в его распоряжение предоставляется установка, испускающая лу¬ 
чи, которые могут проникать через ящик. Лучи двигаются по сле¬ 
дующим правилам (рис. 16): 

луч, наталкивающийся на шар, поглощается; 

луч, проходящий мимо шара на расстоянии одной клетки по 
диагонали, отклоняется на 90°; 

луч, проходящий между двумя шарами, отстоящими друг от 
друга на расстоянии одной клетки, отражается; 

луч, который, проникнув в ящик, оказывается рядом с шаром, 
стоящим у стенки, отражается; 

во всех остальных случаях луч движется по прямой линии. 
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Поскольку в программе ничего не говорится о правилах игры, 
мы дадим их подробное описание. Пусковая установка может 
быть установлена в любой из 32 позиций, показанных на рис. 16. 
Позиции располагаются вдоль каждой стенки ящика и нумеруют¬ 
ся в порядке их обхода против часовой стрелки. Клетка игровой 
доски задается двумя числами — номерами строки и столбца, 
на пересечении которых она находится. Нумерация идет сверху 
вниз и слева направо и начинается с единицы. 

В начале игры вы должны указать коли¬ 
чество шаров, разбросанных по игровой 
доске. Клетки, в которых будут размеще¬ 
ны шары, программа определит с помо¬ 
щью датчика случайных чисел. Дальней¬ 
шие шаги служат для задания номера пози¬ 
ции, в которую игрок помещает пусковую 
установку. В ответ ему сообщается, был 
очередной луч поглощен, отражен или бла¬ 
гополучно прошел через ящик. Как только 
вам удастся обнаружить все шары, введите 
вместо номера позиции нуль — вы сможете 
указать клетки с шарами. 

Для того чтобы сделать игру более увлекательной, программа 
ведет счет штрафных очков. Штрафные очки назначаются по сле¬ 
дующим правилам: 

за каждый поглощенный или отраженный луч по одному очку; 

за каждый луч, прошедший через ящик, по два очка; 

за каждый шар, позиция которого была указана неправильно, 
по пять очков. 

Заметим, что игра достаточно интересна при использовании 
четырех или пяти шаров. Большее количество шаров часто делает 
задачу определения их местоположения трудноразрешимой. 

Основные переменные программы "Черный ящик" (листинг 23): 

Массив В. Отражает расположение шаров игровой доски: 
его элемент равен нулю, если соответствующая клетка дос¬ 
ки пуста, и равен единице, если в этой клетке находится шар. 

Переменная N. Имеет значение, равное числу шаров в ящике. 

Переменная К. Имеет значение, равное номеру позиции, из ко¬ 
торой был выпущен луч. 

Переменная 8. Ее значение равно числу штрафных очков, полу¬ 
ченных игроком в данной партии. 

Переменная С. Ее значение равно числу шаров, местоположе¬ 
ние которых было правильно определено игроком. 

Сделаем небольшое замечание по поводу сообщений, которые 
выдаются программой. В строке 600 стоит оператор РКШТ. 
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Рис. 16 


3. Зак. 
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600 РКШТ ”Вы получили в этой партии ” ; 8” штрафных очков”. 

В случае, когдй значение переменной 8 равно, скажем, 10, ре¬ 
зультат работы этого оператора не вызывает никаких нареканий: 

Вы получили в этой партии 10 штрафных очков. 

В случае же, когда переменная 8 имеет значение, напри¬ 
мер, 1,2 или 3, оператор выдает "неграмотное” сообщение: 

Вы получили в этой партии 1 штрафных очков. 

С подобными лингвистическими трудностями программисту 
приходится постоянно сталкиваться при выводе на экран сообще¬ 
ний, в которых известный заранее текст должен перемежаться 
заранее неизвестными числовыми значениями. Подумайте, как! 
справиться с этой проблемой. 

3.4. "Вишневый пирог" 

В зту игру могут играть два и более игроков. Перед ними пирог, 
разрезанный на равные куски: играющие сами определяют, 
на сколько кусков пирог режется по горизонтали и на сколько 
по вертикали. В левый верхний кусок запечена вишня. Игроки по 
очереди берут кусок за куском. Брать можно и сразу по несколь¬ 
ко кусков. Проигрывает тот, кому достанется кусок с вишней. 

Основные переменные программы ” Вишневый пирог ” 
(листинг 24): 

Переменная Р. Ее значение равно числу игроков. 

Переменная С. Имеет значение, равное числу столбцов игровой 
доски. 

Переменная К. Имеет значение, равное числу строк игровой 
доски. 

Массив А. Отражает текущее состояние игровой доски: его эле¬ 
мент равен единице, если в соответствующей клетке доски 
лежит кусок пирога, равен нулю, если эта клетка пуста, и 
равен минус единице, если в кусок, расположенный в клет¬ 
ке, запечена вишня. 

Переменная Р1. Имеет значение, равное номеру игрока, делаю¬ 
щего очередной ход. 

Хотя играть в зту игру довольно интересно, сама программа 
не слишком "умна”: она умеет только отслеживать игровую си¬ 
туацию, отображать ее на экране, контролировать ходы игроков 
и фиксировать окончание игры. Попытайтесь составить програм¬ 
му, которая в отличие от приведенной выше сможет стать равно¬ 
правным игровым партнером. 



3.5. "Фруктовая машина" 

В этой "вкусной” игре задействованы яблоки, вишни, груши, 
сливы, малина и шоколадки. Играют так: вы делаете ставку и 
за каждый ход (ходы делаются компьютером) либо теряете ее, 
либо к вам возвращается больше, чем было поставлено. 
Успех или неудача определяется тем, какие три предмета из пере¬ 
численных выше были выбраны компьютером. Действуют сле¬ 
дующие правила: 

— три шоколадки дают играющему весь ”банк”, 

— любые три одинаковых фрукта возвращают игроку в 10 раз 
больше, чем сделанная им ставка; 

— любые два одинаковых фрукта и одна шоколадка возвра¬ 
щают игроку в 5 раз больше, чем сделанная им ставка; 

— две шоколадки и любой фрукт возвращают игроку в 3 раза 
больше, чем сделанная им ставка; 

— во всех остальных случаях ставка проигрывается. 

Основные переменные программы "Фруктовая машина” 

(листинг 25): 

Переменная В. Ее значение равно сделанной игроком ставке. 

Переменная Р. Ее значение равно числу ходов, выполняемых 
программой до того, как будет задан вопрос о прекращении 
игры. 

Переменная 8. Имеет значение, равное общему числу очков, 
полученных за игру. 

Эта игра предъявляет к датчику случайных чисел гораздо бо¬ 
лее высокие требования, чем все другие игры, описанные в этом 
разделе. Успех или неудача в игре действительно становятся волей 
случая только тогда, когда генерируемая датчиком последова¬ 
тельность является равномерно распределенной в интерва¬ 
ле (0,1). Последнее означает, что какой бы подынтервал внутри 
интервала (0,1) мы ни взяли, вероятность того, что очередное 
число генерируемой последовательности попадет в этот подынтер¬ 
вал, не зависит от значения других ее членов и определяется толь¬ 
ко длиной подынтервала. 

Попробуйте проверить, насколько имеющийся в вашем распо¬ 
ряжении датчик отвечает сформулированным требованиям. 
Сделать зто можно, например, так. Разбейте интервал (0,1) 
на 10 подынтервалов равной длины, а затем получите последова¬ 
тельность случайных чисел, содержащую, скажем, 300 или 
500 членов (разумеется, для этого надо написать программу). 
Определите, сколько чисел полученной последовательности попа¬ 
ло в каждый подынтервал. При хорошем датчике эти числа 
должны быть примерно одинаковыми. Результаты работы вашей 
программы можно представить в наглядной форме с помощью 
столбчатой или секторной диаграммы (см. гл. 6). 


3.6. "Коровы и быки" 


Известная игра для двух игроков (см. описание в разд. 1.1). 
Основные переменные программы (листинг 26): 

Массив С. Содержит четыре цифры числа, задуманного 
компьютером. 

Переменная М. Ее значение — это число, которое было названо 
игроком в очередной ход игры. 

Массив N. Содержит четыре цифры числа, названного игроком. 
Переменная I. Имеет значение, на единицу меньшее, чем число 
попыток, сделанных игроком при отгадывании очередного 
задуманного числа. 

Недостаток приведенной выше про¬ 
граммы заключается в том, что она не 
позволяет игроку просмотреть предыду¬ 
щие ходы и еще раз проанализировать их 
результаты. Исключение составляют, 
пожалуй, два-три самых последних хода, 
не успевших пропасть с экрана. Тем са¬ 
мым игрок лишается той возможности, 
которой он неоднократно пользуется, 
играя с помощью традиционных листа 
бумаги и карандаша. Недостаток можно 
преодолеть, если дополнить программу журналом игры. Реализо¬ 
вать его можно так,как показано на рис. 17- Здесь журнал пред¬ 
ставляет собой ленту, на которой может быть записано около 
20 ходов. Ходы записываются в том порядке, в котором они 
были сделаны игроком. В каждый момент времени видна не вся 
лента, а лишь небольшая ее часть, расположенная под рамкой. 
Ленту можно перемещать назад и вперед, делая видимым то один 
ее фрагмент,то другой. 

Еще одно предлагаемое усовершенствование программы ка¬ 
сается ее изобразительных возможностей: игра станет заниматель¬ 
нее, если вместо слов "корова” и ”бык” на экране будут рисо¬ 
ваться соответствующие картинки (несколько приемов в созда¬ 
нии подобного изображения объяснены в разд. 7.4). 

Игра имеет несколько модификаций. Одна из них упоминалась 
в разделе 1.1 (”цвет и место”): загадывается не число, а опре¬ 
деленная комбинация разноцветных предметов-фишек. 
В другом варианте задумывается и отгадывается некоторое 
слово (обычно четырехбуквенное). Общая идея игры, однако, 
сохраняется: предъявляемый объект сравнивается с исходным и 
сообщается, насколько они близки. Различается же в разных ва¬ 
риантах игры лишь "пространство”, из которого берется объект 
(комбинация цифр, фишек или букв). 
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Следует заметить, что ”словесный” вариант игры имеет одно 
отличие, которое делает его значительно более сложным для 
реализации в программе. Дело в том, что слова — это осмыслен¬ 
ные комбинации букв (и предъявляться могут только таковые). 
Проверить допустимость числа очень легко (неповторяющиеся 
цифры), тогда как правильность слова по составляющим его 
буквам не проверишь (нельзя ведь хранить список всевозмож¬ 
ных четырехбуквенных слов!) 

3.7. "Морской бой" 

Вряд ли найдется человек, никогда не игравший в "морской 
бой”. Программа, приводимая здесь, играет по правилам, кото¬ 
рые несколько отличаются от привычных. 

Игровая доска, как и обычно, имеет размер 10X10 клеток. 
На ней расставлены невидимые вражеские корабли, каждый из 
которых занимает от одной до четырех клеток. Клетки, занятые 
одним кораблем, могут быть расположены либо только по гори¬ 
зонтали (в одной строке), либо только по вертикали (в одном 
столбце). Цель игры — потопить весь вражеский флот, делая 
выстрелы по отдельным клеткам доски. В состав флота входят: 

— два миноносца, занимающих по одной клетке; 

— два крейсера, занимающих по две клетки; 

— два линкора, занимающих по три клетки; 

— два авианосца, занимающих по четыре клетки. 

Перед началом игры вам предлагается карта поля боя, либо 
правильно отражающая расстановку вражеских кораблей, либо 
зашифрованная одним из трех способов: 

1 ) симметричным отражением клеток, занятых кораблями, от¬ 
носительно вертикальной прямой, проходящей через середи¬ 
ну игровой доски; 

2 ) симметричным отражением клеток, занятых кораблями, 
относительно горизонтальной прямой, проходящей через 
середину игровой доски; 

3) симметричным отражением клеток, занятых кораблями, от¬ 
носительно точки, являющейся центром игровой доски. 

Успех игры в значительной степени зависит от того, сумеете ли 
вы расшифровать предложенную карту, поскольку в вашем рас¬ 
поряжении имеется всего 25 выстрелов, число же клеток, занятых 
кораблями, равно 20. 

Основные переменные программы "Морской бой” (листинг 27): 

Массив Р. Хранит информацию о расположении вражеского 
флота. Его элемент равен нулю, если соответствующая 
клетка пуста, равен номеру корабля, если в клетке стоит 
корабль с этим номером (корабли нумеруются числами от 1 
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до 8), и равен минус единице, если клетка только граничит 
с той, в которой стоит корабль. 

Массив В. Хранит информацию о том, какие из клеток среди 
занятых кораблями, были обстреляны. Элемент массива 
равен нулю, если соответствующая клетка либо пуста, 
либо не обстреливалась. Элемент массива равен номеру 
корабля (число от 1 до 8), если корабль с этим номером 
стоит в соответствующей клетке и в нее уже был произведен 
выстрел. 

Переменная 8. Имеет значение, равное числу сделанных вы¬ 
стрелов. 

Массив С. Хранит данные о числе выстрелов, которые были 
сделаны по разным клеткам каждого корабля. Значение эле¬ 
мента массива, равное 4, говорит о том, что соответствую¬ 
щий корабль потоплен. 

Переменная Ь. Ее значение равно числу потопленных враже¬ 
ских кораблей. 


3.8. "Прыгающие шарики" 

Игровая доска имеет девять лунок, в которых лежат четыре 
черных и четыре белых шара так, как показано на рис. 18. 
Требуется передвинуть черные шары на место белых, а белые 
на место черных. Шар можно передвигать либо в соседнюю с ним 
пустую лунку, либо в пустую лунку, находящуюся непосредствен¬ 
но за ближайшим шаром. 

Основные переменные программы (листинг 28): 

Массив О. Содержит данные о расположении шаров в лунках 
игровой доски. Его элемент равен нулю, если соответствую¬ 
щая лунка пуста, равен единице, если в ней лежит черный 
шар, и равен двум, если в ней лежит белый шар. 

Переменные М и М1. Их значения равны соответственно номе¬ 
ру лунки, из которой в очередной ход берется шар, и номеру 
лунки, в которую этот шар перемещается. 

Переменная 8. Имеет значение, равное числу ходов, сделанных 
игроком за одну партию. 

Описанная игра является лишь одной из разновидностей игр 
с шарами и лунками. Приведем описание еще трех подобных игр. 

1. "Задача Люка”. Игровая доска имеет 11 лунок, в которых 
лежат пять черных и пять белых шаров так, как показано 
на рис. 19. Как и прежде, требуется поменять местами черные 
шары с белыми, двигая любой шар либо в соседнюю с ним 
пустую лунку, либо в пустую лунку, находящуюся непосредствен¬ 
но за ближайшим шаром. В отличие от предыдущей игры белые 
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шары разрешается двигать только вправо, а черные — только 
влево. 

2. В этой игре доска имеет N лунок, в каждой из которых ле¬ 
жит шар черного или белого цвета. Одним ходом разрешается 
менять местами два любых шара. Добиться того, чтобы сначала 
шли белые шары, а за ними — черные. 

3. Теперь в каждой лунке лежит красный, белый или синий шар. 
Одним ходом разрешается менять местами два любых шара. 


Рис. 18 


Рис. 19 


Добиться того, чтобы все красные шары шли первыми, все си¬ 
ние - последними, а белые - посередине. 

Если вас заинтересовала какая-либо из этих трех игр, по¬ 
пробуйте модифицировать вышеприведенную программу в соот¬ 
ветствии с новыми правилами. Заметим, что при наличии игро¬ 
вой доски, имеющей N лунок, для переупорядочения шаров 
в игре 2 достаточно сделать не более [ N/2] ходов, а для переупо¬ 
рядочения шаров в игре 3 — не более N—1 хода. (Здесь [X] обо¬ 
значает целую часть числа X, т.е. наибольшее целое, не превосхо¬ 
дящее X, например [3.14] =3.) 


3.9. " Ним" 

Даны три кучки предметов; два игрока поочередно берут 
произвольное число предметов (не меньше одного) из одной 
какой-нибудь кучки, из какой именно - решает игрок. Выигры¬ 
вает тот, кто, сделав очередной ход, заберет все оставшиеся 
предметы. 

Вариант игры, реализованный в программе, предусматривает 
наличие в каждой кучке не более пяти предметов. Исходное раз¬ 
мещение предметов и их общее число выбираются компьютером 
с помощью датчика случайных чисел. Соперниками являются 
человек и компьютер. Право выбора — сделать первый ход или 
отказаться от него — отдано человеку. 

”Ним” принадлежит к числу игрсхорошо изученной выигрыш¬ 
ной стратегией. Последующее краткое описание этой стратегии 
стоит пропустить тем, кто хочет получать удовольствие от про¬ 
цесса игры. 

Распределение предметов по кучкам при игре в ”Ним”, т.е. 
позицию, которая складывается на игровой доске, называют 
опасным или безопасным в зависимости от выполнения некото- 
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рых условий (описываемых ниже). Выигрыш обеспечен, если 
при выборе каждого хода вы будете руководствоваться следую¬ 
щими двумя правилами. 

1. В начале игры оцените исходную позицию и, если она опасна, 
отдайте первый ход компьютеру. Если позиция безопасна, сделай¬ 
те первый ход сами. 

2. В результате каждого сделанного вами хода на доске должна 
быть получена опасная позиция. Это всегда возможно благодаря 
двум обстоятельствам: 

— известно, что любой ход сделанный в опасной позиции, при¬ 
водит к позиции безопасной; 

— известно также, что в любой безопасной позиции всегда най¬ 
дется ход, который переведет ее в опасную позицию. 

Рассмотрим, каким условиям должна удовлетворять позиция, 
чтобы считаться опасной или безопасной. 

Напомним, что всякое число может быть представлено, и 
притом единственным образом, в виде суммы различных степе¬ 
ней двойки (иначе говоря, в двоичной системе счисления). 
Например, 

5 = 2 2 +2°, 3 = 2* +2°, 1 =2°. 

Позиция (1т,к,1), при которой в кучках находятся соответст¬ 
венно Ь,к,1 предметов, полагается опасной, если каждое из чисел 
2 8 (8=0,1,2,...) либо совсем не входит в разложения чисел Ь,к,1 
на суммы различных степеней двух, либо входит в эти разложе¬ 
ния всего 2 раза. 

Если же хотя бы одно из чисел 2 8 (8=0,1,2,...) входит в раз¬ 
ложения чисел Ь,к,1 один или 3 раза, то позиция (Ь,к,1) полага¬ 
ется безопасной. 

Определить, является ли текущая позиция опасной или безопас¬ 
ной, можно следующим способом. Для этого представим числа 
Ь,к,1 в двоичной системе счисления, запишем их одно под дру¬ 
гим, а затем сложим (уже в десятичной системе счисления) циф¬ 
ры, стоящие в каждом столбце. Пусть, например, текущая пози¬ 
ция описывается тройкой чисел (2,3,4). 


Номер 

Число предметов в 

Число предметов в 

кучки 

кучке (в десятичной 
системе счисления) 

кучке (в двоичной 
системе счисления) 

1 

2 

0 1 0 

2 

3 

0 1 1 

3 

4 

10 0, 


1 2 1 


Позиция опасна, если все полученные суммы являются четны¬ 
ми. Если хотя бы одна полученная сумма является нечетной, 
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позиция безопасна. Позиция (23.4), исполь¬ 
зовавшаяся выше в качестве примера, безо¬ 
пасна , поскольку суммы чисел, стоящих в 
первом и последнем столбах,являются нечет¬ 
ными. Ход, который должен быть сделан в 
этой позиции по правилам 1 и 2, заклю¬ 
чается в изъятии из третьей кучки трех 
предметов. 



Рис. 20 


Номер Число предметов в Число предметов в 

кучки кучке (в десятичной кучке (в двоичной 

системе счисления) системе счисления) 


1 

2 

3 


2 

3 

1 


0 1 о 

О 1 1 
О О 1 


0 2 2 

Основные переменные программы ”Ним” (листинг 29) : 

Массив X. Хранит данные о текущем распределении камешков. 
Элемент массива равен числу камешков в соответствующей 
кучке. 

Массив А. Хранит цифры двоичного представления числа ка¬ 
мешков в каждой кучке. 

Массив У. Хранит суммы соответствующих цифр двоичного 
представления числа камешков в каждой кучке. 

Переменная О. Ее значение равно числу партий, выигранных 
компьютером. 

Переменная К. Ее значение равно числу партий, выигранных 
игроком. 

Массив \Ѵ. Хранит данные об исходном распределении ка¬ 
мешков по кучкам в последней сыгранной партии. 

В работе [6] описан еще один способ оформления этой иг¬ 
ры, который может заинтересовать тех, чей персональный ком¬ 
пьютер обладает графическими возможностями. На шахматной 
доске в произвольных местах расставлены три шашки; игроки 
поочередно передвигают шашки по спирали (рис. 20) по направ¬ 
лению к клетке А, перемещая за один ход какую-нибудь шаш¬ 
ку на любое число клеток (при этом на одной клетке могут 
оказаться сразу две и даже три шашки). Игра заканчивается, 
когда все шашки достигнут клетки А; выигравшим считается 
игрок, своим ходом закончивший игру. 
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3.10. "Угадай число" 

"Угадай число” — это стратегическая игра для младших 
школьников (листинг 30). Правила игры печатаются в самой 
программе, и мы не будем их повторять. Программа очень 
проста. Надеемся, что вы уже через час сможете с помощью 
приведенного здесь текста получить на своем компьютере работа¬ 
ющую программу. 

Но советуем вам на этом не успокаиваться. Программу можно 
дополнить разными усовершенствованиями. Во-первых, уровня¬ 
ми сложности игры, устанавливая различные препятствия для 
"вылавливания” загаданного числа. Во-вторых, способом начисле¬ 
ния очков, зависящим от времени решения задачи, количества по¬ 
пыток и результата поиска числа. В-третьих,поддержкой таблицы 
рекордов. В-четвертых, и это, наверное, самое трудное и интерес¬ 
ное , графическим отображением процесса поиска числа на экране 
дисплея. 

Уровни сложности игры можно организовать следующим обра¬ 
зом. Первые уровни должны помогать игроку выбирать правиль¬ 
ную стратегию. Для этого диапазон вылавливания чисел может 
изменяться от уровня к уровню в сторону увеличения. Для того 
чтобы максимально заинтересовать игрока на этом этапе,компью¬ 
тер может выдавать на экран графическое отображение процесса 
поиска числа, помечая на числовой оси наиболее характерные точ¬ 
ки и освобождая таким образом игрока от необходимости устно¬ 
го счета и запоминания прозондированных числовых интервалов. 
Количество попыток, предоставляемых игроку для угадывания, 
должно быть минимальным для заданного диапазона. Можно по¬ 
казать, что оно не должно превышать сумму целой части логариф¬ 
ма по основанию 3 от величины диапазона и числа 2. 

Более высокие уровни игры можно строить с ориентацией на 
тренировку у игрока устного счета, сняв для этого числовую раз- 
метку с предъявляемой числовой оси и постоянно варьируя диапа¬ 
зон поиска числа (не от 1 до N, а от М до N). На самых высоких 
уровнях игры компьютер должен аккуратно стирать с экрана 
всю информацию, кроме текста текущего запроса, заставляя 
игрока запоминать необходимую для дальнейшего поиска инфор¬ 
мацию. Игра может продолжаться до первой неудачной попытки 
поймать задуманное число. Теоретически такая игра может быть 
бесконечной, а практически она будет ограничена возможностями 
игрока и компьютера по работе с большими числами. Скорость 
увеличения диапазона поиска числа следует подобрать таким обра¬ 
зом, чтобы даже при достижении наилучшего результата игра не 
могла продолжаться свыше 10 минут. 
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3.11. "Мешанина" 


Игра "Мешанина” заключается в том, что игрок разгадывает 
слово, буквы в Котором переставлены случайным образом. На от¬ 
гадывание отводится минута времени; неверные попытки не учи¬ 
тываются. Играют поочередно два игрока; побеждает тот, кто 
затратил на данное количество слов наименьшую сумму времени. 

Приводится вариант игры (программа ЗсгатЫе,листинг 31) на 
материале английской лексики, более подходящий для взрос¬ 
лых — так сказать, ”в помощь изучающим английский язык”. 
Игра развивает '^лексическую интуицию”, активизирует знание 
английских диграфов, помогает улучшить правописание. Вариант 
игры на русском лексическом материале, который легко полу¬ 
чить из приводимого, будет полезен для младших школьников. 

С точки зрения программиста наиболее интересна процедура 
ввода букв (подпрограмма в строках 900 — 940), которая 
использует функцию ШКЕУ$ (нажатия клавиши "Ввод” не тре¬ 
буется) , а также способ контроля времени ответа. Анализируются 
показания часов системы (функция ТІМЕ#), а именно: число 
секунд; по истечении одной секунды строка ТІМЕ % меняется, это 
"событие” фиксируется и на экран выводится показание счетчика 
секунд (подпрограмма в строках 760 — 780). 


ГЛАВА 4 

ИГРЫ "НА ЛОВКОСТЬ" 

4.1. "Снаряд" 

С помощью этой игры вы можете проверять свою реакцию. 
Не расстраивайтесь, если ваши попытки не всегда будут удачны. 
Помните, что "снарядом” управляет самый хитрый наводчик — 
датчик случайных чисел. 

Обратите внимание на операторы с номерами 350—420. Здесь 
запрограммировано управление движущимся объектом ("ловуш¬ 
кой”) с помощью клавиатуры. Если вам нравится этот метод, 
возьмите его на вооружение. Движение вправо происходит по 
нажатию буквы Ь, а движение влево — по нажатию буквы К. 

4.2. "Не пересекай" 

Эта игра уже описывалась ранее в разделе 1.1. Здесь мы лишь 
напомним, что она рассчитана на двух игроков и что в данном слу¬ 
чае компьютер используется лишь для создания и поддержания 
игрового "мира”. Управление движущимися объектами — "червя- 

43 



ками” — производится двумя клавишами. Одна клавиша (пра¬ 
вая) заставляет "червяка” повернуть направо, а другая — налево 
Один игрок пользуется клавишами Р9 и РІО (или 2 и X), а дру¬ 
гой — клавишами ” + ” и ” — ”. 

Мы приводим два варианта этой игры. Они довольно похожи, 
но один из них работает гораздо быстрее. Ниже обсуждается, 
почему это происходит. Для игроков же разница состоит в том, 
что в первом варианте игры поворот возможен только под углом 
в 90°, тогда как во втором — под углом в 45°. Кроме того, в мед¬ 
ленном варианте это игра стратегическая. При прочих равных 
условиях выигрывает тот, чья стратегия лучше. Более быстрый 
вариант — это скорее игра психологическая. Выигрывает тот, кто 
лучше сумел предугадать действия соперника. 

Основная причина того, что первый вариант игры (листинг 33) 
работает медленнее, состоит в том, что он написан ... в соответ¬ 
ствии с рекомендациями структурного программирования (на¬ 
сколько это можно сделать на языке Бейсик). Программа разбита 
на логически законченные фрагменты (подпрограммы), передача 
управления к которым осуществляется с помощью оператора 
С08ИВ, а выход из них — с помощью оператора КЕТІЖМ. Каж¬ 
дая подпрограмма имеет свое название, указанное с помощью 
комментария в ее первой строке. Имеется каталог подпрограмм, 
построенный таким образом, чтобы его, во-первых, было удобно 
просматривать (для этого он расположен в начале программы), 
а, во-вторых, чтобы он не портился после автоматической пере¬ 
нумерации строк (оператором КЕІМІІМ) . Так как почти все под¬ 
программы используются в данной программе по одному разу, 
то такая организация программы является излишней. Вызов под¬ 
программ — это главный источник неэффективности данного 
варианта. 

Другая причина неэффективности кроется в том, что в про¬ 
грамме много массивов. Она устроена таким образом, что легко 
может быть переделана для игры не только двух, но и трех, и 
четырех и более человек. Операции чтения элементов из мас¬ 
сива и записи в массив являются довольно ”времяемкими” 
для интерпретатора. Повсеместное использование массивов, в 
свою очередь, заставляет прибегать к операторам цикла, что еще 
более снижает быстродействие программы. 

Во второй версии программы ”Не пересекай” (листинг 34) из¬ 
быточные подпрограммы и массивы изъяты. Благодаря этому 
программа работает заметно быстрее. 

Обратите внимание на обработку нажатий на клавиши в стро¬ 
ках 500—550 листинга 33. Ключевым здесь является оператор в 
строке 550. Он гарантирует обработку одновременно или почти 
одновременно нажатых клавиш. В отсутствие этого оператора 
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за один цикл программы обрабатывалось бы только одно нажа¬ 
тие на клавиши и игроки могли бы "ходить” только по очереди. 
В настоящем же варианте игроки могут нажимать на клавиши 
одновременно, и также одновременно будут изменять направле¬ 
ние управляемые ими "червяки”. 


43 . "Змейка" 

В этой игре мы снова сталкиваемся с пресмыкающимся, но оно 
уже посолиднее и называется "змейкой”. Играет один человек, 
управляющий змейкой. Компьютер ему не мешает,а лишь добро¬ 
совестно воспроизводит игровую ситуацию. Врагов у змейки нет, 
но есть "пчелки” (они выкрашены в красный цвет), которые 
обычно гуляют по своим делам, но очень не любят, когда на них 
наступают. В этом случае они больно кусаются. Змейка может 
выдержать лишь три укуса. В задачу змейки входит набрать как 
можно больше очков, тогда славное имя игрока вместе с резуль¬ 
татом записывается в таблицу рекордов. Очки начисляются за 
сбор "цветочков” (понятно, что все термины, как и сам компью¬ 
терный мир, чисто условные). От этого и сама змейка увеличи¬ 
вается тоже. 

Игра построена как усложняющаяся. Растет змейка, постепенно 
увеличивается количество пчелок, а в какой-то момент вдруг 
начинают бродить по полю и цветочки. При работе программы в 
режиме интерпретации эти события, однако, приводят не к услож¬ 
нению, а к замедлению и .таким образом, упрощению игры. После 
компиляции программы играть становится гораздо интереснее. 
Но еще быстрее игра будет протекать, если читатель сможет на 
своем компьютере заменить, где нужно, операторы РКШТ на 
операторы РОКЕ. (Это было сделано и проверено нами для ПК 
ИБМ). Даже после этого убыстрения игра на самой первой ско¬ 
рости будет вполне доступна трехлетнему ребенку. 

Программа (листинг 35) является одной из наиболее разрабо¬ 
танных в данной книге. В ней есть и таблица рекордов,и уровни 
сложности, и начисление очков, и управление несколькими дви¬ 
жущимися объектами одновременно, и кое-что еще. Например, 
изображение игрового поля может быть загружено из файла, куда 
его можно записать с помощью обычного текстового редактора. 
При этом должны соблюдаться некоторые соглашения, связанные 
с координатами ”норы”, из которой вылезает змейка, с количе¬ 
ством пчелок и цветочков. 

Однако и эту игру можно улучшать и развивать. Можно, 
например, изменить способ управления змейкой. В данной версии 
и змейка, и пчелки, и цветочки двигаются с одинаковой скоро- 
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стью. Причем пчелки перемещаются одновременно со змейкой 
в тот момент, когда игрок неожиданно быстро нажимает на кла¬ 
виши. Можно сделать движения змейки и пчелок независимыми, 
с тем чтобы при быстрых нажатиях игрока на клавиши змейка 
двигалась быстрее, пчелки же двигались с постоянной скоростью. 
Для этого необходимо изменить текст программы в строках 840— 
880. 

На младших уровнях удлинение змейки вызывает усложнение 
игры, так как уменьшается ее маневренность. Затем, когда цве¬ 
точки начинают двигаться, длинный хвост начинает помогать игре, 
так как с его помощью можно отделять опасных пчелок от 
безобидных цветочков и таким образом разделываться с цветоч¬ 
ками без помех. Для дальнейшего усложнения игры можно, 
наоборот, начать уменьшать длину хвоста змейки с некоторого 
момента, например, когда она достигнет 60 клеток. Тогда змейка 
вынуждена будет учиться хватать цветочки "на лету”. Возможно, 
вам удастся придумать и другие усовершенствования программы. 


ГЛАВА 5 

ОБУЧАЮЩИЕ И ТРЕНИРУЮЩИЕ ИГРЫ 

5.1. "От одного до десяти" 

Эта несложная игра (листинг 36) помогает малышу запомнить, 
в каком порядке идут числа от 1 до 10. Вопрос, который в каж¬ 
дый ход предлагает программа, выглядит так: "Какое число идет 
за N7” (И — это любое число от 1 до 9 ). Даже если ребенок пока 
еще не умеет читать, сыграв с вашей помощью в эту игру несколь¬ 
ко раз, он легко научиться понимать, что у него спрашивают. 

Правильный ответ награждается призом — красочной картин¬ 
кой. Неправильный — влечет повторное задание того же самого 
вопроса. "Пустой ответ” (клавиша "Ввод” нажата без какого- 
либо числового значения) приводит к завершению игры. 

Для того чтобы игра стала увлекательной, сделайте более инте¬ 
ресным приз, которым награждается правильный ответ. Пусть 
возможных призов будет несколько. Придумать их вам поможет 
глава 2, а выбрать, каким призом наградить очередной правиль¬ 
ный ответ, — ваш датчик случайных чисел. 


46 



5.2. 'Таблица умножения" 

Эта игра (листинг 37) рассчитана на детей несколько более 
старшего возраста — учеников первого класса, которые должны 
выучить наизусть таблицу умножения. Таблица опрашивается под¬ 
ряд — так как она приведена, например, на обороте школьной 
тетради. 

5.3. Умеете ли вы считать? 

Приводимая здесь программа (листинг 38) предназначена для 
упражнения в устном счете. При опросе гарантируется абсолют¬ 
ная объективность. Никаких поблажек или особой благосклон¬ 
ности, как, впрочем, и никаких придирок! Попробуйте поработать 
с электронным учителем, а если вам самим это не интересно, то, 
может быть, игры привлекут ваших детей или младших това¬ 
рищей? 

5.4. Игра на сложение 

Прочитайте правила игры, приведенные в тексте программы 
(листинг 39). Понятны ли они вам? Как, по-вашему, часто в ней 
можно выигрывать? Сразу скажем, что это маловероятно — слиш¬ 
ком много случайностей в процессе игры. Одно несомненно — 
игры такого типа нужны для детей, которые учатся складывать 
числа. Мы предлагаем вам самим подумать и изменить правила 
игры и программу таким образом, чтобы выигрыш закономерно 
приходил к умелому игроку, и в то же время не был легко дости¬ 
жим. 

Программа построена таким образом, что легко позволяет 
сделать все необходимые модификации. Например, количество 
чисел на доске не обязательно может быть равно 9. Можно брать 
числа и из другого диапазона (не из диапазона 1—9) и даже допус¬ 
кать повторяющиеся числа. Генерация начального положения 
чисел на доске осуществляется в строках 360— 400. 

Выбирать "свертку” (см. правила в листинге программы) мож¬ 
но не случайным способом, как это делается в строке 410, а так, 
чтобы это гарантировало победу игрока при правильной игре. 

Можно завести для компьютера свою доску (скажем, массив 
АС), на которой он случайным образом будет выбирать количест¬ 
во снимаемых чисел и номера этих чисел .получая, таким образом, 
свертку. Если игрок сумеет повторить действия компьютера, то 
он наверняка выиграет. В этом случае в программе потребуется 
дополнительный массив,который будет хранить оставшиеся числа 
(например, массив ПС). Работа с массивами АС и 11С должна про¬ 
изводиться так же, как с массивами А и 11, Можно варьировать 
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вероятность выигрыша игрока при таких изменениях в выборе 
свертки, увеличивая или уменьшая количество чисел на доске и 
соответственно уменьшая или увеличивая диапазон, которому 
они принадлежат. Если же числа на доске будут расположены в 
произвольном порядке, а не в порядке возрастания, то это потре¬ 
бует от игрока еще и некоторой наблюдательности. 

Желаем вам удачи в экспериментах с этой программой. 

5.5. Упражнение в системах счисления 

Программа "Системы счисления” (листинг 40) поможет вам 
приобрести навыки перевода целых чисел из десятичной системы 
счисления в двоичную и обратно. Сеанс обучения включает 20 во¬ 
просов - по 10 на каждую систему. Все вопросы однотипны: про¬ 
грамма предлагает число в одной системе счисления, требуется 
перевести это число в другую систему. Любой вопрос задается 
только один раз — если вы ошиблись, программа сама сообщит 
правильный ответ. Числа, предлагаемые для перевода, выбирают¬ 
ся с помощью датчика случайных чисел. 

Не составляет особого труда переделать программу так, чтобы 
она помогла освоить и другие системы счисления, а не только 
двоичную. Так, например, иногда может оказаться полезным 
иметь навыки перевода в восьмиричную и шестнадцатиричную 
системы счисления. Тем, кто захочет внести в программу соот¬ 
ветствующие изменения, мы советуем обратить внимание на 
то, как выбирается число, подлежащее переводу, и одновремен¬ 
но формируется строка цифр, представляющая это число в ис¬ 
ходной системе счисления (подпрограмма в строках 560— 
610), а также на то, как выполняется сравнение цифр числа, полу¬ 
ченных программой и указанных играющим (строки 360—400). 

5.6. Освоение иностранной лексики 

Можно вспомнить немало предметов, изучение которых сво¬ 
дится к заучиванию ответов на определенный перечень вопросов: 
значения слов иностранного языка, даты исторических событий, 
названия столиц стран мира, меры площадей и объемов,пунктуа¬ 
ционные правила и т.д. Для заучивания ответов часто используют 
колоду карточек. На лицевой стороне карточки записан вопрос, 
а на обороте — ответ. Выбрав наугад какую-либо карточку из 
колоды, обучающийся делает попытку ответить на содержащийся 
в ней вопрос. Если попытка не удается,ответ читается на обороте. 
Затем карточка возвращается в колоду и все повторяется. 

В программе "Словарь” (листинг 41) описанный прием исполь¬ 
зуется для запоминания нескольких английских слов. 
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Выучите эти слова, а затем измените операторы, стоящие в 
строках 100—130 — программа поможет вам выучить новый спи¬ 
сок. Так же следует поступить и тогда, когда вам потребуются 
вопросы по другой теме: ниже показано, как можно модифици¬ 
ровать программу при заучивании столиц стран мира. 

100 БАТА Япония, Токио, США, Вашингтон 

ПО БАТА Великобритания,Лондон,ФРГ,Бонн,Греция, Афины 

120 БАТА Испания, Мадрид, Франция, Париж 

130 БАТА Португалия, Лиссабон, Чили, Сантьяго, ГДР, Берлин 

Программу можно изменит» и гак, чтобы она позволяла зада¬ 
вать и модифицировать список вопросов в диалоге. Для этого 
прежде всего следует отделить список вопросов от текста про¬ 
граммы: вопросы должны храниться не в самой программе, как 
это делалось до сих пор, а отдельно от нее — во внешних файлах. 
Понять, как должна быть в этом случае огранизована программа, 
вам поможет листинг 47 программы "Картотека” из главы 6. 

Еще одно полезное усовершенствование имеет целью такой 
выбор вопросов, когда вопрос, который оказывается для обучае¬ 
мого более трудным, задается чаше более легкого, а вопрос, про 
который можно считать, что ответ на него усвоен уже достаточно 
хорошо, исключается из рассмотрения. Простая стратегия выбора 
вопросов, которая отвечает этому требованию и ее программная 
реализация, даны в [2]. 

5.7. Быстрое чтение 

Безусловным преимуществом в наше время обладает тот, кто 
умеет быстро читать. Первая из двух программ, посвященных 
быстрому чтению (листинг 42), поможет вам оценить темп, с 
которым вы воспринимаете печатную информацию,и сравнить его 
с темпом ваших друзей и знакомых. 

Меняя в строке 10 значение переменной N. вы можете варьиро¬ 
вать время, отводимое программой на чтение одной строки 
текста. 

Вторая программа (листинг 43) призвана помочь вам улучшить 
темп вашего чтения. Программа выдает на экран короткие фразы, 
которые остаются видимыми непродолжительное время, а затем 
спрашивает, какая фраза была вами прочитана. Если ответ дан 
правильно, время, в течение которого фраза остается на экране, 
будет вдвое уменьшено. Если ответ дан неправильно, это время 
будет вдвое увеличено. 


4. Зак. 
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ГЛАВА 6 


НЕЧТО СЕРЬЕЗНОЕ 

6.1. "Календарь" 

Эта программа (листинг 44) печатает календарь на любой за¬ 
данный год из диапазона 1582..4902. Как было установлено (см. 
[17]), для любой даты из указанного диапазона номер дня недели 
(воскресенье имеет номер 0,понедельник — номер 1,..., суббота — 
номер 6), равен остатку от деления на 7 значения выражения 

[2.6т—0.2] +с1+у+ [у/4] + [с/4] -2с, 

где (1 — номер дня в месяце (1,2,...); т — номер месяца в году, 
нумерация начинается с марта (март имеет номер 1, апрель — но¬ 
мер 2.декабрь — номер 10,январь и февраль считаются месяца¬ 

ми с номерами 11 и 12 предыдущего года); у — число, образован¬ 
ное двумя младшими цифрами номера года (00,...,99); с — чис¬ 
ло, образованное двумя старшими цифрами номера года (15, ..., 
49); [х] — означает целую часть числа х. 

Этот факт используется в программе для определения дня 
недели,на который выпало 1 января заданного года. Использует¬ 
ся также и то обстоятельство, что в современном (григорианс¬ 
ком) календаре каждый год, номер которого делится на 4, явля¬ 
ется високосным, за исключением тех номеров, которые делятся 
на 100 и не делятся на 400. 

Для создания более универсального календаря, охватывающего 
все годы, можно использовать непосредственный подсчет, осно¬ 
ванный на том, что 1 января 1 года нашей эры было понедель¬ 
ником. 

6.2. Умеет ли компьютер считать? 

Верите ли вы, что компьютер может возводить числа в квадрат, 
в куб, вычислять площадь круга по заданному радиусу и перево¬ 
дить радианы в градусы? Если не верите, то вот вам текст про¬ 
граммы — проверяйте (листинг 45)! А может быть, вам по роду 
работы постоянно приходится выполнять подобные вычисления? 
Тогда эта программа будет для вас весьма полезна. Попробуйте 
ею воспользоваться и имейте в виду, что набор выполняемых ею 
операций совсем не сложно расширить. Для этого необходимо 
внести соответствующие дополнения после строки 470 и после 
строки 600. 
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6.3. Немного "деловой графики" 

Гистограммы и секторные диаграммы являются эффективным 
средством отображения числовых данных в тех случаях, когда 
нужно в наглядной форме дать представление о соотношении чис¬ 
ловых величин из некоторой совокупности,например, о пропор¬ 
циях различных статей расхода в семейном бюджете. Как извест¬ 
но, гистограмма (столбчатая диаграмма) —это несколько прямо¬ 
угольников, основания которых равны, а высоты пропорциональ¬ 
ны соответствующим числовым величинам (рис. 21). Секторная 
диаграмма — это круг, площади секторов которого пропорцио¬ 
нальны соответствующим числовым величинам (рис. 22). Для 
большей наглядности прямоугольники гистограммы и секторы 
секторной диаграммы обычно закрашивают в разные цвета. 




Программа ''Экономист” (листинг 46) позволяет строить 
гистограмму и секторную диаграмму для числовых величин об¬ 
щим количеством не свыше 20. Программа запрашивает, какая 
из двух диаграмм должна быть построена, числовые величины 
исходной совокупности и заголовок .после чего выполняет требу¬ 
емые построения. 

6.4. "Картотека" 

Картотека, которую вам позволяет организовать эта програм¬ 
ма (листинг 47), устроена следующим образом. Она состоит из 
отдельных карточек, каждая из которых может хранить неболь¬ 
шую (длиной до 105 символов) заметку. Количество карточек, 
находящихся в вашем распоряжении, произвольно и определяет¬ 
ся только объемом свободного пространства на диске. 

Карточки могут содержать самые разнообразные сведения: 
рефераіы заинтересовавших вас статей или книг вместе с необ¬ 
ходимыми библиографическими данными, адреса и телефоны 



ваших друзей, сослуживцев или знакомых, список дел, заплани¬ 
рованных на конкретные дни ,и прочее. 

Все необходимые сведения могут быть записаны в картотеку, 
а затем просмотрены, отредактированы или удалены из нее. 
Доступ к заметкам выполняется по ключевым словам. Ключе¬ 
вое слово ставится в соответствие каждой заметке и задается при 
заполнении карточки. Любое ключевое слово может соответство¬ 
вать произвольному числу заметок. Для того чтобы прочитать 
или отредактировать заметку, после того как она занесена на кар¬ 
точку, следует указать ключевое слово — из картотеки будут из¬ 
влечены все заметки с этим ключевым словом. Последовательно 
просмотрев все выбранные заметки, вы найдете среди них нуж¬ 
ную вам. 

Для работы с картотекой совсем не обязательно все время 
помнить все задействованные ключевые слова. Список этих слов 
хранится в картотеке отдельно и может быть представлен вам в 
любой момент. 

Для того чтобы программа "Картотека” работала правильно, 
необходимо, чтобы в таблице символов вашей ПЭВМ прописные 
русские буквы располагались в алфавитном порядке.Почему это 
так, вы поймете, взглянув на строки 810—950. В этом фрагменте 
просматриваются все ключевые слова, имеющиеся в картотеке. 

6.5. Биоциклы 

Гипотеза японских ученых о существовании в человеческом 
организме трех независимых биологических циклов (физичес¬ 
кого, эмоционального и интеллектуального) довольно подробно 
обсуждалась как в научной, так и в популярной литературе,поэто¬ 
му мы не будем здесь останавливаться на ее описании. Мы приво¬ 
дим тексты трех программ, позволяющих эти биоциклы рассчи¬ 
тать (листинги 48,49,50). 

Первая из них рассчитывает график биоциклов для указанного 
года и месяца и выдает его на печатающее устройство. Вторая и 
третья также рассчитывают биоциклы, но на указанный год; они 
сходны между собой, а разница состоит в том, что одна выдает 
календарь биоциклов на печатающее устройство, а другая — на 
экран дисплея. В принципе их несложно объединить в одну. В не¬ 
которых диалектах Бейсика это можно сделать таким образом: 
заменить операторы РКШТ или БРКШТ операторами вывода 
информации в файл, а в качестве файла выбирать либо экран 
дисплея, либо печатающее устройство. 

Во второй программе используются управляющие коды для 
печатающего устройства типа ЕР80М РХ-80. В первой и третьей 
никаких управляющих кодов не используется. 
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Для работы с программами нужно знать только дату рожде¬ 
ния с точностью до половины суток. При вводе даты день, месяц 
и год задаются числами через запятую. Год можно указывать толь¬ 
ко двумя последними цифрами. 

6.6. "Меню" 

Программа "Меню” (листинг 51) позволяет упростить запуск 
программ, написанных на языке Бейсик и находящихся в теку¬ 
щем каталоге. Она печатает перечень имен этих программ на экране 
дисплея и позволяет запустить нужную программу, не набирая ее 
имя на клавиатуре,а указав лишь ее номер в этом перечне. 

Запущенная программа может завершаться одним из следую¬ 
щих способов: 

1. Снова запустить программу шепи.Ьаз. Это наиболее удоб¬ 
ный в данном случае способ, так как он снова возвращает нас 
к перечню программ. 

2. Передать управление интерпретатору языка Бейсик (с по¬ 
мощью оператора ЕМІЭ) . В этом случае мы сможем вернуться в 
программу шепи, нажав клавишу Р1 (если, конечно, отработав¬ 
шая программа не изменила ее смысла). 

3. Выйти из Бейсика и передать управление операционной систе¬ 
ме. В этом случае потребуется снова вызывать интерпретатор 
Бейсика и программу шепи, для того чтобы в нее вернуться. Если 
вы захотите с помощью программы шепи объединять свои собст¬ 
венные программы, то мы не рекомендуем завершать их послед¬ 
ним способом. 

Программа устроена поучительно просто. Сначала она печатает 
имена файлов на экране дисплея черными буквами на черном 
фоне (строка 30). Затем считывает эти имена с экрана (посим¬ 
вольно, с помощью оператора 8СКЕЕЫ) и помещает их в массив 
РК.ОС$ (строки 40-120). Ну, а остальное в комментариях, навер¬ 
ное, не нуждается. Отметим, что чтение имен файлов с экрана орга¬ 
низовано с учетом формата выдачи каталога файлов оператором 
РІБЕ8 Поэтому в интерпретаторе, отличающемся от М3 ВА8ІС, 
значения переменных С\Ѵ (ширина колонки имен файлов на экра¬ 
не с учетом пробелов, отделяющих одну колонку от другой), БС 
(номер позиции последней колонки) и значение переменной N1. 
(максимальная длина имени файла), возможно, потребуется из¬ 
менить. 
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ГЛАВА 7 


КИРПИЧИКИ ДЛЯ СОЗДАНИЯ КОМПЬЮТЕРНОЙ ИГРЫ 

Игру вовсе не обязательно от начала до конца "сочинять” зано¬ 
во. Можно пользоваться готовыми блоками, которые повторяют¬ 
ся в самых разных игровых программах. Рассмотрим некоторые 
из этих "кирпичиков”. 

7.1. Последовательности случайных чисел 

Основное свойство всякой игры — непредсказуемость, неповто¬ 
ряемость. Вместе с тем компьютер (и всякая компьютерная про¬ 
грамма) "склонны” повторяться, поскольку однажды составлен¬ 
ная и отлаженная программа в дальнейшем не меняется или меня¬ 
ется очень редко. 

За счет чего же достигается разнообразие в игре? Один из обще¬ 
принятых у программистов способов — обращение к датчику 
псевдослучайных чисел — функции, имеющейся в каждом диалек¬ 
те Бейсика. Функция выдает "случайное” вещественное число в 
интервале между 0 и 1. 

Как можно использовать такую функцию? Нужны примеры? 
Вот они: выбор ”поля действия” (точки на экране) посредством 
случайного задания его координат; случайная смена движения 
объекта на экране (вправо—влево-вверх-вниз); случайный вы¬ 
бор из нескольких заготовленных объектов, природа которых 
может быть самой разной (числа, рисунки, текстовые сообщения 
и т.п.); случайная смена цвета; неожиданный звуковой сиг¬ 
нал и т.п. 

Все эти варианты применения случайных чисел фактически опи¬ 
раются на выбор целого числа из некоторого интервала (коорди¬ 
нату точки на экране, одно из нескольких направлений движе¬ 
ния, номер одного из множества объектов, наборов цве¬ 
тов, звуковых последовательностей и др.), тогда как функция- 
датчик псевдослучайных чисел выдает вещественное число в 
интервале между 0 и 1. Поэтому необходимо его дальнейшее пре¬ 
образование, впрочем, весьма простое. Интервал (0,1) необходи¬ 
мо сначала "растянуть” до нужного диапазона умножением на чис¬ 
ло, задающее верхнюю границу, а затем округлить полученное по¬ 
средством функции Бейсика ШТ. 

В диалекте Бейсик-ИБМ псевдослучайные числа выдаются 
функцией К.ЫВ(1) — аргументом функции может быть и любое 
другое целое. Поэтому указанная процедура в Бейсике выглядит 
так: 

Т=ПЧТ(Ю'Ш(1)*]Ч) 
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Здесь Т дает искомое "случайное” целое в диапазоне от 0 до 

N-1. 

Другая тонкость состоит в том, что "чистой"случайности ком¬ 
пьютер все-таки обеспечить не способен: отсюда и кавычки при 
слове "случайность”, и приставка "псевдо-”. В действительности 
функция ЮДЭ выдает просто-напросто очередное число из опре¬ 
деленной последовательности. Если пользоваться только этой 
функцией, то программа будет получать одну и ту же последова¬ 
тельность "случайных” чисел. 

Что в этом плохого? Вы быстро изучите поведение игры, при¬ 
способитесь к ней и никакая случайность не будет для вас неожи¬ 
данной — да попросту игра станет скучной. 

Только в одном случае (точнее, в одном классе игр) это не 
страшно — когда выше собственное поведение, а значит, и общее 
течение игры, подвержено неизбежной случайности (уже подлин¬ 
ной!). Попробуйте, например, повториться при игре в "змейку”. 
Никогда ваши пальцы не смогут выдержать жесткий ритм нажа¬ 
тия клавиш — точное соблюдение их последовательности и интер¬ 
валов между ними — даже при условии,что ваша память способна 
запечатлеть* историю предыдущей игры. Конечно, общая стратегия 
может выдерживаться более-менее неизменной и рисунок игры 
будет напоминать прежние, но все же картина каждый раз будет 
хоть чуть-чуть, а иной. Даже з шахматах такая ситуация возмож¬ 
на: пусть машина-партнер в каждой позиции отвечает всегда оди¬ 
наково, но позиций так много и так легко отклониться от раз 
проверенного дебюта... 

Во многих классах игр, однако, вам легко повторять свои 
"ходы” (этим, в частности, характеризуются логические игры) 
и очень важно, чтобы не повторялась программа-партнер. В Бейси¬ 
ке существует средство переключения на новую последователь¬ 
ность псевдослучайных чисел. Это обращение к функции 

КАШ0МІ2Е(Р), 
где Р — некоторое целое число. 

Само по себе это мало что дает. Ведь если число Р — од¬ 
но и то же, то порядок появления чисел все равно предопре¬ 
делен. Можно попытаться внести хаос комбинацией функций 
КАЫООМІ2Е(КМО (1)), однако легко убедиться, что этот вари¬ 
ант, по существу, не отличается от предыдущего. Обмануть Его 
Величество Случай не удается. Как быть? Выход в том, чтобы 
опереться на действительно случайный процесс. Какой? 

Практически во всех персональных компьютерах имеются 
встроенные часы. В Бейсике-ИБМ показания часов выдаются 
строковой переменной ТІМЕ$в формате ЧЧ:ММ:СС, т.е. дву¬ 
значные целые числа, обозначающие текущие часы, минуты и 
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секунды, разделенные двоеточием. Ясно, что астрономическое 
время, в которое будет протекать игра, — величина довольно 
случайная. Впрочем, ночные часы игры менее вероятны, и, кро¬ 
ме того, при включении машины часы обычно каждый раз нужно 
ставить заново, а если этого не сделать, то отсчет начнется с 
полуночи. Поэтому если вы имеете привычку, включив маши¬ 
ну, сразу начинать играть, то и часы, и минуты будут более или 
менее фиксированы. 

Менее всего поддаются предсказанию секунды — две послед¬ 
ние цифры строковой переменной ТІМЕ#. Возможны 60 различ¬ 
ных значений — и притом практически равновероятных — этих 
цифр (числа от 00 до 59). Если выбирать псевдослучайную после¬ 
довательность в соответствии с этим значением в начале игры, то 
ее течение пойдет одним из 60 различных вариантов: большой 
прогресс на шкале случайности! 

Поскольку аргумент функции КАМЮМІ2Е числовой, то 
перед обращением к ней нужно выделить число из строки ТІМЕ $, 
что делается в два этапа: берутся два последних символа ТІМЕ # 
(функция КІСНТ $), а затем выполняется преобразование из стро¬ 
кового значения в числовое (функция ѴАЬ) . В итоге "перемеши¬ 
вание” последовательности псевдослучайных чисел выглядит так: 

М\ЖЮМІ2Е ( ѴАЬ(К.ІСНТ# (ТІМЕ#, 2))) 

Нетрудно, естественно, получить и большее разнообразие воз¬ 
можностей, нежели 60 вариантов. Например,если привлечь к делу 
еще и минуты, то можно уже оперировать 3600 различными вида¬ 
ми течения игры: 

КАШОМІ2Е ( ѴАЬ (МГО #(ТІМЕ #,4,2) ) * 100+ 

+ ѴАЬ (КІСНТ#(ТІМЕ#,2))) 

Подчеркнем, что "рандомизация” последовательности произво¬ 
дится обычно один раз в начале работы программы, обращение же 
к функции МГО — многократно впоследствии,обычно в основном 
цикле. 

Внимательный читатель найдет еще несколько приемов дости¬ 
жения случайности среди собранных в книге программ. 

7.2. Анализ стандартных клавиш. Паузы 

Очень часто программа задает вопрос играющему (обучаемо¬ 
му), например, касательно необходимости выдачи на экран пра¬ 
вил игры или повторения игры, на который ожидается только 
один из двух ответов: или "нет". 

Раз и навсегда можно определить способ анализа ответа игрока, 
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чтобы не тратить при написании программы лишнего времени и не 
плодить ненужных ошибок . 

Типичный вариант таков. Игроку разрешается ответить слова¬ 
ми ”да” или ”нет”, причем в ответе допускается и возможность 
использования заглавных (прописных) букв. Анализ же ведется 
только по первой букве, так что допустим и сокращенный ответ. 

100 ШРОТ "НУЖНЫ ПРАВИЛА”; \У$ 

105 \У 8 =иЕРТ!?(\Ѵ!М) 

ПО ІР \Ѵ#=”Д”ОК\Ѵ#=”д” ТНЕЫ200 

120 ІР \Ѵ#=”Н” ОК\У$=”н” ТНЕЫ 300 

130 РКШТ "ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ’ДА’ ИЛИ ’НЕТ’ ” 

140 СОТО 100 

Другой вариант можно назвать "быстрым” (или "сокращен¬ 
ным”) . В нем используется прямой прием с клавиатуры с по¬ 
мощью функции ІЖЕУ$. В отличие от предыдущего варианта, 
в котором из-за использования функции ІИРОТ пользователь мог 
ответить достаточно длинным словом и должен был в доверше¬ 
нии всего нажать клавишу "Ввод”, в этом варианте программа 
ожидает всего одно нажатие клавиши (первая буква ответа), 
которую не нужно подкреплять клавишей "Ввод”. В этом при¬ 
мере мы даем также сокращенный вариант анализа ответа: буква 
"Д” (большая или маленькая) означает положительный ответ; 
все же остальные трактуются как отрицательный. 

100 РКШТ "ПОВТОРИТЬ ИГРУ?” 

105\Ѵ$=ІЖЕУ$: ІР \У#=" ” ТНЕЫ 105 

110 ІР \Ѵ#=”Д” ОК \Ѵ#=”д” ТНЕЫ 200 ЕЬ8Е 300 

Частым элементом игровой программы является пауза (осо¬ 
бенно в начале игры или перед повтором партии). В паузе играю¬ 
щему дается возможность отдохнуть или собраться с духом. Для 
продолжения игры требуется нажать произвольную клавишу. 
Реализуются паузы обычно через функцию ІЖЕУ#: 

100 РКШТ "ЧТОБЫ НАЧАТЬ ИГРУ НАЖМИТЕ ЛЮБУЮ 

КЛАВИШУ”; 

110 ІР ІЖЕУ$=” ” ТНЕЫ 110 

120 КЕМ НАЧАЛО ПАРТИИ 

7.3. Звуковые элементы 

Если компьютер обладает звукогенератором (как, например, 
компьютеры типа ИБМ), то его звуковые возможности можно с 
большим эффектом использовать в играх. Как правило, игра 
сопровождается небольшими звуковыми вставками-коммента- 
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риями, создающими как бы звуковое лицо игры. При знании азов 
музыкальной грамоты и руководства по Бейсику можно до¬ 
вольно легко "внедрить” в ткань игровой программы любой 
музыкальный аккомпанемент. 

Ниже приводятся очень простые фрагменты, в которых с по¬ 
мощью оператора 80ШГО запрограммированы известные звуко¬ 
вые последовательности. 

10 КЕМ-ПАДЕНИЕ ШАРИКА 

20 РОК К=3000 ТО 600 8ТЕР -5 
30 80ШБ К, К/5000 
40 ЫЕХТ К 
50 ЗОИНО 3000,2 

10 КЕМ-СИРЕНА 

20 РОКХ=1 ТО 4 

30 РОК Ь=700 ТО -700 8ТЕР -10 

40 80ШБ 850—АВ8(Ь), .3 

50 І^Б-2/700 

60 ИЕХТ И 

70 НЕХТ X 

10 КЕМ-СКОРАЯ ПОМОЩЬ 

20 РОКХ=1 ТОЗ 
30 80ШБ 900,3 
40 80ШБ 700,4 
50 РОКК=1 ТО 1600 
60 НЕХТ К 
70 ИЕХТ X 

7.4. Несколько приемов графического оформления игр 

В разделах 2.1-2.8 мы уже приводили примеры построения 
графических изображений на экране персонального компьютера. 
Здесь мы более подробно рассматриваем некоторые приемы гра¬ 
фического оформления игровых программ. В частности, будет 
показано,как можно получить на экране картинки,подобные изо¬ 
браженной на рис. 26. 

Возвращение к простой геометрии. 

До сих пор в тех случаях,когда требовалось нарисовать из про¬ 
граммы какое-либо изображение на экране, мы прибегали к гра¬ 
фическим операторам (таким, как Ы№ и СІКСЬЕ), в качестве 
их аргументов задавая параметры геометрически^ фигур и способ 
их размещения на экране (см., например, листинга 1-3, 6—9). 
Такой подход вполне приемлем, когда набор изображений фикси¬ 
рован и они не подлежат изменению. Если, однако, мы хотим 
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рисовать самые разные, заранее не определенные картинки, то 
потребуется более гибкий подход. 

В этом случае можно поступить следующим образом. Будем 
описывать рисунок отдельно от операторов, выполняющих его 
построение. Для простоты будем предполагать, что рисунки 
комбинируются из геометрических фигур нескольких типов, а 
именно следующих: 

— ломаных с произвольным числом звеньев, 

— прямоугольников, 

— треугольников, 

— окружностей. 

Этот список при желании будет нетрудно расширить, хотя 
произвольные комбинации даже этих четырех типов фигур да¬ 
ют уже очень большое разнообразие картинок (см. примеры на 
рис. 1, а-г). 

Каждую из указанных фигур будем представлять последова¬ 
тельностью целых чисел, определяющих тип фигуры, ее размеры 
и расположение на экране, а именно: 

1) ломаная в перечне допустимых фигур имеет номер 1 и за¬ 
дается числом вершин и последовательностью их координат; 

2) прямоугольник получает номер 2 и задается координатами 
противолежащих вершин; 

3) треугольник имеет номер 3 и задается координатами вер¬ 
шин; 

4) окружность обозначается номером 4 и задается координа¬ 
тами центра и радиусом. 

По этим соглашениям последовательность целых чисел 1,3, 
10,40,30,60,50,10 определяет ломаную, вершинами которой 
являются три точки с координатами соответственно (10,40), 
(30,60) и (50,10), а последовательность 4,100,100,50 - окруж¬ 
ность с центром в точке (100,100) и радиусом 50. 

Для описания рисунка, состоящего из нескольких геометриче¬ 
ских фигур, достаточно указать вначале их количество, а затем 
перечислить последовательности целых чисел, соответствующие 
каждой компоненте. 

Подпрограмма 'Трафарет” (листинг 52) позволяет получить 
на экране рисунок по такому описанию. Подпрограмма составле¬ 
на в предположении, что описание рисунка хранится в основной 
программе с помощью операторов ПАТА. Попробуйте усовершен¬ 
ствовать подпрограмму, расширяя набор базовых геометричес¬ 
ких фигур и вводя новые параметры для них (например, задавая 
цвет фигуры, если в вашем распоряжении есть цветной графичес¬ 
кий монитор). Удастся ли вам получить на экране картинку,изо¬ 
браженную на рис. 1, ді 
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Рисованные знаки. Изображения символов , которые 
выводятся на экран оператором РКШТ, имеют определенный раз¬ 
мер и начертание, не подлежащие изменению. В игровых програм¬ 
мах желательно разнообразить вывод на экран различных текстов, 
например, печатать приветствие или числовой результат игры бук¬ 
вами и цифрами больших размеров, отличными от стандартных. 

Один из способов сделать это близок к только что описанному 
построению картинок из простых компонент. Буквы и цифры 
строятся из отдельных отрезков, размещаемых в прямоугольнике 
определенных размеров, подобно тому как пишется индекс на 
почтовом конверте или высвечивается время на электронных 
часах (рис.23). 

Л 


АБ&ГЛЕ 


8 


п 

0 4 


х 


Рис. 23 


Рис. 24 


Предположим, что левый нижний угол обрамляющего прямо¬ 
угольника совмещен с началом координат, и будем задавать каж¬ 
дый отрезок, входящий в начертание буквы или цифры, коорди¬ 
натами его концов. Так, для буквы ”Б”, изображенной на рис. 24, 
мы получим следующие пары координат: (0,0) —(0,8), (0,8) — 
(4,8), (0,5)-(4,5), (0,0) —(4,0), (4,5)-(4,0). Тем самым лю¬ 
бой знак будет описан следующим набором целых чисел: общее 
количество образующих отрезков .пары координат, описывающие 
отдельные отрезки. Для рассмотренной буквы ”Б”это даст такую 
последовательность: 

5, 0,0,0,8, 0,8,4,8, 0,5,4,5, 0,0,4,0, 4,5,4,0 

„ Ясно, как построить на экране букву ”Б”, опираясь на этот 
набор чисел и зная позицию экрана, с которой совмещен левый 
нижний угол обрамляющего прямоугольника. 

Листинг 53 содержит подпрограмму, которая позволяет 
строить на экране буквы русского алфавита от ”А” до ”Я”. Пред¬ 
полагается, что описания букв в виде рассмотренных последова¬ 
тельностей хранятся в основной программе с помощью операто¬ 
ров БАТА в алфавитном порядке. 

Точечные шаблоны. Под точечным шаблоном обыч¬ 
но понимают прямоугольное поле размером МХИ клеток, каждая 
из которых закрашена или пуста (рис. 25). Шаблон служит для 
задания структуры изображения в прямоугольной области экрана. 
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Чаще всего одна клетка шаблона соответствует одной точке экра¬ 
на, однако возможны и более сложные варианты. Клетка может 
соответствовать нескольким точкам, соседним по горизонтали 
(рисунок вытянут в ширину); нескольким точкам, соседним по 
вертикали (рисунок вытянут в высоту); наконец, одна клетка 
может соответствовать квадратному полю экрана, например, раз¬ 
мером 2X2 точки (рисунок укрупнен). 

Пустые клетки шаблона составляют фон, заполненные клетки 
образуют рисунок — сопоставленные с ними точки экрана закра¬ 
шивают соответственно фоновым цветом и цветом, отличным от 
фонового. 

Работа с точечными шаблонами зависит от возможностей дан¬ 
ного диалекта Бейсика. Очень просто строить изображение по 
точечному шаблону в диалекте М8Х-ВА8ІС. Для этого програм¬ 
мисту следует : 

закодировать шаблон последовательностью целых чисел; 

по полученной последовательности сформировать строку сим¬ 
волов .считая каждое целое число кодом символа; 

присвоить полученную строку специальной строковой перемен¬ 
ной 8РКІТЕ 8. 
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обратиться к оператору РІЛГ 8РЫТЕ, с указанием координат 
левого верхнего угла области экрана, в которой нужно построить 
изображение. 

Эти действия были выполнены в программе "Танцующий 
НЛО (2)” (листинг 16). 

Заметим, что в диалекте М8Х-ВА8ІС точечные шаблоны слу¬ 
жат основой общего механизма управления движущимися кар¬ 
тинками [15]. 

Сложнее работать с точечными шаблонами в диалектах Бейси¬ 
ка, не располагающих для этого специальными средствами. 
В Бейсике-ИБМ необходимо самому выбрать способ кодирова¬ 
ния шаблона и составить подпрограмму формирования изобра¬ 
жения по заданному коду. Наиболее простой, хотя и громоздкий 
способ заключается в кодировании шаблона наборами нулей н 
единиц (соответственно для пустой и закрашенной клетки); 
количество таких наборов равно числу строк, а количество эле¬ 
ментов в каждом наборе — числу столбцов исходного шаблона. 
Приведем наборы, кодирующие шаблон, который показан на 
рис.25 , а: 

1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,1 — 1-я строка 

1,0,0,0,0,1,1,1,0,0,0,0,1,0,1,0 — 2-я строка 


0,0,1,0,0,1,0,0,0,0,1,0,1,0,0,0 - 16-я строка 

Подпрограмма обработки таких наборов дана в листинге 54. 
Исходными данными являются размеры шаблона и координаты 
левого верхнего угла области экрана, где строится изображение. 
Предполагается, что наборы, кодирующие шаблон, хранятся в 
основной программе с помощью операторов ОАТА. 

Подпрограмма проста, но операторы ОАТА чрезвычайно гро¬ 
моздки, к тому же их будет тем больше, чем больше число карти¬ 
нок и чем больше размер шаблона. Чтобы упростить представле¬ 
ние данных, наборы нулей и единиц будем трактовать как двоич¬ 
ные числа, а в оператор ОАТА записывать соответствующие шест¬ 
надцатиричные . Для вышеприведенных наборов получим 

1100001000010001 -С211 (16) 

1000011100001010 - 870А (16) 

0010010000101000-2428 (16) 

Благодаря такой свертке, операторы ОАТА значительно упро¬ 
стятся, например,первый набор запишется так: 

1000 ОАТА &НС211 
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Подпрограмма же, наоборот, усложнится, так как на нее ло¬ 
жится дополнительная задача преобразования шестнадцатиричных 
чисел в наборы нулей и единиц (листинг 55) - 

Тем, кто испытывает трудности при переводе чисел из двоич¬ 
ной в шестнадцатиричную систему счисления, рекомендуем по¬ 
практиковаться в работе с программой "Системы счисления” (см. 
разд. 5.5) или воспользоваться нижеследующей табличкой. Каж¬ 
дая шестнадцатиричная цифра соответствует четырехзначному 
двоичному числу (слева двоичные числа, справа шестнадцатирич¬ 
ные цифры): 

0000 - 0 1000 - 8 

0001 - 1 1001 - 9 

0010 - 2 1010 - А 

ООН - 3 1011 - В 

0100 - 4 1100 - С 

0101 - 5 1101 - Б 

ОНО - 6 1110 - Е 

0111 - 7 1111 - Р 

Чтобы перевести в шестнадцатиричную систему произвольное 
двоичное число, его следует разбить на группы по четыре цифры 
в каждой (дополнив, если требуется, слева нулями), а затем каж¬ 
дую группу заменить соответствующей шестнадцатиричной 
цифрой. 

Рисование произвольных фигур. Взгляните на 
рис. 26. С помощью программы "Художник” (листинг 56) вы мо- 
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жете рисовать подобные фигуры на экране графического монито¬ 
ра вашей ПЭВМ. Графика, которую предлагает эта программа, 
сродни черепашьей графике языка Лого. Вы можете перевести 
понравившуюся картинку на кальку, приложить ее к экрану и, 
управляя движением курсора-черепашки в восьми направлениях, 
заставить "проползти” ее по контуру рисунка. Там, где нужно, 
черепашка может поднять перо и перемещаться без рисования. 

Программа не только строит картинку, но и запоминает все 
свои действия в виде списка команд оператора ОКА\Ѵ (см. При¬ 
ложение). Таким образом, в результате вы получаете описание 
картинки, которое можно затем использовать в других игровых 
программах (листинг 57). 

7.5. Передвижение объектов 

Передвижение объектов на экране дисплея программируется 
обычно следующим образом. Программа изображает объект, вы¬ 
держивает паузу, затем стирает объект на старом месте и рисует 
его на новом, снова ожидает какое-то время и т.д. 

Если необходимо изображать несколько движущихся объек¬ 
тов, каждый из которых движется со своей скоростью, то это 
делают одним из двух способов: либо перемещая объекты на раз¬ 
личное расстояние за один шаг, либо передвигая объекты с раз¬ 
ной частотой. 

Перемещение на различное расстояние используется в тех слу¬ 
чаях, когда скорости объектов отличаются несильно, а величины 
шагов небольшие. Этот способ программируется проще. Однако 
когда скорости объектов существенно разные, то у более быст¬ 
рых объектов шаг перемещения становится таким большим, что 
объект двигается по экрану не плавно, а скачками. Чтобы избе¬ 
жать этой ситуации, прибегают к перемещению объектов с разной 
частотой. (Шаг перемещения и в этом случае может различаться.) 

Рассмотрим несколько схем передвижения объектов в игровых 
программах. 

Простейшая схема. 

Шаг 1. Если была нажата какая-то управляющая клавиша, то 
передвинуть объекты в соответствии с нажатой клавишей, иначе — 
передвинуть объекты в соответствии с правилами игры. 

Шаг 2. Выдержать паузу длиной А. Перейти к шагу 1. 

Недостатком этой схемы является то, что если игрок нажимает 
несколько допустимых клавиш одновременно или почти одновре¬ 
менно, то программа обрабатывает их одну за другой в своем 
собственном ритме,а не в ритме игрока. Это его,естественно, раз¬ 
дражает, так как он хочет, чтобы быстрые нажатия быстро и об¬ 
рабатывались. 
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При игре двух игроков их одновременные нажатия на клавиши 
обрабатываются по очереди,что, вообще говоря, "нечестно”. Если 
при этой схеме один из игроков произведет целую серию управ¬ 
ляющих воздействий (нажатий на клавиши), то воздействия 
второго игрока будут на какое-то время заблокированы, так как 
программа ставит их в общую очередь на обработку. Это создает 
почву для еще более нечестной игры, ибо пока программа при¬ 
мется за обработку отложенных воздействий второго игрока, 
его "позиция” в игре может значительно ухудшиться. 

Многоклавишная схема. 

Шаг 1. Если были нажаты управляющие клавиши, то передви¬ 
нуть объекты в соответствии с первой из них, убрать эту клавишу 
из очереди и перейти к шагу 1. Иначе — передвинуть объекты в 
соответствии с правилами игры. 

Шаг 2. Выдержать паузу длиной А. Перейти к шагу 1. 

В этой схеме за один такт игры можно успеть сделать несколь¬ 
ко ходов. Ни один из противников в этом случае не может поме¬ 
шать другому сделать свой ход. Все объекты в этом случае дви¬ 
жутся в одном ритме. Программа должна уметь быстро обрабаты¬ 
вать нажатия клавиш, чтобы количество нажатых клавиш не 
могло повлиять на темп игры. Для сохранения темпа можно при¬ 
менить следующий прием — вычитать из величины паузы А вре¬ 
мя, затраченное на обработку клавиш. Тогда каждый такт игры 
будет занимать одно и то же время независимо от того, были 
нажаты какие-либо клавиши или нет. 

Недостатком этой схемы является то, что в ней множество 
движущихся объектов не подразделяется на объекты, управляе¬ 
мые игроками,и неуправляемые. В связи с этим они все движут¬ 
ся одновременно. 

Аритмичная схема. Для данной схемы алгоритма сде¬ 
ланы следующие предположения. Все объекты делятся на классы. 
Объекты, принадлежащие к одному классу, движутся по одному 
закону. Закон характеризуется величиной шага перемещения 
(в алгоритме это явно не отражено), траекторией перемещения 
(это также явно не отражено) и частотой перемещения. Частота 
перемещения определяется количеством тактов программы, в те¬ 
чение которых объект стоит на месте и не двигается, если не было 
никаких нажатий на клавиши. В случае нажатия на клавиши, 
управляющие перемещением данного объекта, объект перемеща¬ 
ется сразу же, как только программа успеет это нажатие об¬ 
работать. 

для каждого класса объектов И выполнить [ 

Задержка (И) :=начальное_значение_задержки(И); 


5. 'Іик. .11 К 
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повторять 

если были_ нажат ы к л ав и ши 
то [ 

для всех нажатых клавиш выполнить [ 
передвинуть объекты класса К, 
управляемые данной клавишей; 
все задержки уменьшить на 
время_пере движения (К) —1; 
задержка(К):=начальное_значение_задержки(К)+1; 

]; 

] 

иначе ничего не делать; 
для каждого класса объектов И выполнить [ 
уменьшить задержку (И) на 1; 
если задержка (И) < О, 
то [ 

передвинутьобъектыкласса (И); 
уменьшить все задержки на 
время_пере движения (И); 
задержка (И):=начальное_значение_задержки (И); 

] 

иначе ничего не делать; 

]; 

пока игра не закончится; 

В качестве примера приведем фрагмент одного из вариантов 
программы ”3мейка” (ср. листинг 35) 

840 К\Ѵ= БЬУО : БЬУРК=БЬУО 
845 А$=І№СЕУ$ : ІР А$=” ” ТНЕЫ 860 
850 А=А8С (А#) 

855 С08ЦВ 880: БЕУРК=БЕУРК~39 : К\Ѵ=ОЬУО+1 ’двигать 

змейку в новом направлении 

860 БЬУРК=БЬУРК— 1 : К\Ѵ=К\Ѵ-1 

862 ІР К\Ѵ<0 ТНЕЫ С08Ш 870 : К\Ѵ=БЬУО ’двигать змейку в 
прежнем направлении 

863 ІР БЬУРКСО ТНЕК С08Ш 1370 : БЬУРК =БЬУО ’двигать 
пчелок и цветочки 

865 СОТО 845 

Здесь БЬУО это длина задержки перемещения в тактах про¬ 
граммы. Эта величина одинакова для всех объектов данной иг¬ 
ры. Переменные Е\Ѵ и БЬУРК соответствуют величинам задерж- 
ка(1) изадержка(2) схемы алгоритма. КЛѴ используется для из- 
меретая времени "простоя” змейки, а БЬУРК — для измерения 
времени "простоя” остальных объектов игры. 

Подпрограмма, начинающаяся в строке 870, перемещает 
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змейку в прежнем направлении, если не было нажато никаких 
клавиш. Подпрограмма, начинающаяся в строке 880, перемещает 
змейку в направлении, указанном нажатой клавишей. 

Подпрограмма, начинающаяся в строке 1370, перемещает 
остальные объекты программы (”пчелок”и "цветочки”). В лис¬ 
тинге 35 нужно заменить СОТО на К.ЕТ1ЛПЧ в строках 870,1150, 
1240-1360,1560. 

Величина 39 (равная 40-1) соответствует времени передвиже¬ 
ния змейки (40) в тактах данной программы. Эта величина под¬ 
бирается экспериментально при работе с откомпилированной вер¬ 
сией программы. 

ГЛАВА 8 

ОТ БЕЙСИКА К ПАСКАЛЮ 

В этой главе мы делаем отступление в сторону другого языка 
программирования на материале простой игровой программы. 
Возможно, это будет интересно тем, для кого Бейсик — первый 
и пока единственный язык программирования. 

Когда в конце 60-х годов швейцарский ученый Никлаус Вирт 
разрабатывал Паскаль, он стремился создать язык, на основе 
которого можно было бы эффективно обучать программирова¬ 
нию. Поднять эту дисциплину от уровня простого ремесла, воз¬ 
вести ее в ранг если не науки, то сложной инженерной деятель¬ 
ности — вот что входило в замысел создателя Паскаля. Язык дол¬ 
жен определенным образом формировать мышление программис¬ 
та, помогать ему почувствовать законы программирования, его 
красоту. Не случайно было выбрано и название нового языка: 
в честь выдающегося французского математика Блеза Паскаля 
(1623-1662). 

В те годы у5ке сложились представления о том, что хорошо и 
что плохо в программировании, и Паскаль был задуман как язык 
образцово-показательный. Успех Паскаля, когда он появился, 
был даже больше,чем ожидалось. Выйдя за чисто учебные рамки, 
он стал полноправным и очень популярным языком программи¬ 
рования, в особенности среди студентов и научных работников. 
Что касается Бейсика, то этот язык классики в области програм¬ 
мирования (Н. Вирт, Э.Дейкстра, Ч. Хоар) и их единомышленни¬ 
ки ставили очень низко, позволяя себе в его адрес довольно язви¬ 
тельные высказывания. 

Пусть не принимают это близко к сердцу те, кто успел полю¬ 
бить Бейсик. К точке зрения классиков можно сделать много 
оговорок. И все же основания для подобных высказываний у них 
есть. 1 Іам будет полезно понять, какие. 


67 



Очень кратко разницу между Бейсиком и Паскалем можно 
выразить так. Бейсик позволяет "выпускать” работоспособные 
программы очень быстро и без особой отделки . Работа на Паскале 
связана с большими затратами времени, особенно на стадии раз¬ 
мышлений о программе, но это вознаграждается отточенностью и 
надежностью получаемого программного изделия. 

Бейсик сохраняет особую прелесть кустарного труда: букваль¬ 
но из-под рук выходит готовый продукт, сразу годный в употреб¬ 
ление. Принципы языка прозрачны, лежат на поверхности, про¬ 
граммисту не нужно читать длинных инструкций, усваивать но¬ 
вые термины и т.д. Это обеспечивает Бейсику высокую популяр¬ 
ность у работающих на персональных компьютерах, среди кото¬ 
рых не так уж много профессиональных программистов. 

Если вы начинали программировать с калькулятора, то Бейсик 
вероятно, наиболее близкий вам по духу язык. Однако, может 
быть, легкость его кажется вам легковесностью, а простота — 
примитивностью? 

Тогда не исключено, что вам по душе придется Паскаль. Осо¬ 
бенно в том случае, если вы привыкли делать все пусть нетороп¬ 
ливо, но ясно и четко, если вам приятно, когда все вещи на своих 
местах, ”все по полочкам”, если вам по душе, когда стройный 
замысел объединяет детали. 

Пусть не создается впечатление, будто наличие разных языков 
программирования должно разделить все человечество на непри¬ 
миримые кланы. И Бейсик, и Паскаль — всего лишь орудия, и 
можно пользоваться каждым из них и с предельной аккурат¬ 
ностью, и очень неряшливо. 

Суть, однако, в том, что Бейсик "прощает” неточности и,пожа¬ 
луй, даже поощряет определенную небрежность в программирова¬ 
нии. Паскаль, напротив, стимулирует продуманные решения, 
полученные в результате напряженной, сосредоточенной работы. 

Освоив Паскаль, относительно легко можно перейти к изуче¬ 
нию любого другого языка: Модулы, Ады, Си или того же Бейси¬ 
ка. Он дает многое в понимании существа программирования. Что 
же касается Бейсика, то существует опасение,что раннее и неуме¬ 
ренное пристрастие к нему притупляет стремление к строгости и 
последовательности в программистском труде. 

А теперь несколько слов в защиту Бейсика. Наш старый, ми¬ 
лый Бейсик! Сказанное относится прежде всего к ортодоксаль¬ 
ному, самому "неотесанному” варианту языка. Есть много попы¬ 
ток привить Бейсику хорошие манеры, и некоторые его диалекты 
обладают полезными чертами и свойствами других языков, в том 
числе Паскаля (пусть злые языки и утверждают, что варварское 
происхождение Бейсика проглядывает и за современным костю¬ 
мом). 
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Добавим к этому, что если ваши программы сравнительно 
просты, то вполне вероятно, что вы сможете программировать на 
Бейсике, прекрасно решая свои задачи и не чувствуя никаких не¬ 
удобств . Паскаль дает средства для разработки больших и слож¬ 
ных программ с известной гарантией их надежности и безошибоч¬ 
ности. Здесь его преимущества неоспоримы. Однако для неболь¬ 
ших программ средства Паскаля окажутся излишними, избыточ¬ 
ными. Чтобы постирать носовой платок, не нужна стиральная 
машина. 

Ниже мы предлагаем читателям простую игровую программу, 
написанную в двух вариантах на обоих языках. По ходу изложе¬ 
ния текст на Бейсике постепенно трансформируется в текст на 
Паскале. 

(На практике пользоваться этим методом мы не советуем: 
подстрочник никогда не отличается изяществом. Паскаль имеет 
свою собственную "стилистику”, и писать программы следует 
сообразуясь с этим, а не делая кальки с языка, по духу от него 
далекого.) 

Игра состоит в том, чтобы обнаружить клад, сокровище. Запо¬ 
лучить его можно лишь, подойдя к нему на установленное рас¬ 
стояние. Игроку неизвестны ни точные координаты искомого 
объекта, ни его собственные координаты, однако он постоянно 
получает информацию о расстоянии до сокровища (что-то вроде 
детской игры "холодно-горячо”). Каждым ходом игрок меняет 
свои координаты, указывая увеличение или уменьшение каждой 
из них. Клад между тем тоже перемещается, "дрейфуя” неболь¬ 
шими случайными скачками: от 0.5 до —0.5 по каждой координа¬ 
те. По получаемой информации игрок должен уловить, в каком 
направлении находится объект поисков, и добраться до него. 

Пример сознательно упрощен ради основной цели: сравнения 
двух языков. Для тех, кого не удовлетворяют суррогаты, мы при¬ 
водим и более серьезные варианты программ (листинги 62, 63). 

Вот основные части исходной программы на Бейсике (листинг 
58). 

Строки 10-60: прелюдия. Выполняются предварительные 
операции: установка начальных значений координат игрока и 
сокровища. Здесь и ниже для выбора очередного случайного (ве¬ 
щественного) числа в диапазоне от 0 до 1 используется функция 
КМ). Каждая из координат игрока имеет начальное значение меж¬ 
ду 1 и 2. 

Строки 70-190: основной цикл. 

80: запрос величин перемещения игрока по осям ОХ и ОУ. 

90: счетчик числа шагов, затраченных на поиски, возрастает 
ни I после очередного шага. 

110: изменение координат игрока. 
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130—140: изменение координат сокровища. 

160—170: вычисление расстояния и вывод его величины на 
экран. 

190: проверка, найдено ли сокровище (расстояние меньше 1). 

Если нет, то переход на начало цикла — очередной шаг поисков. 

Строки 200—210: на экран выводится поздравление в связи с 
успешным завершением поисков и указывается затраченное чис¬ 
ло ходов. Конец программы. 

Как аналогичная программа будет выглядеть на Паскале? 

Начнем с простого. Большинство операторов и функций нахо¬ 
дятся в прямом соответствии,разница лишь в названиях: 

На Бейсике На Паскале 

РКШТ - \ѴКІТЕШ 

ВДРІЛГ - КЕАОЦЧ 

ИЧГО -КАШОМ 

80 К - 80 КТ 

В Паскале аргументы операторов и функций всегда заключают¬ 
ся в скобки и разделяются между собой запятыми (так, как это 
принято в математической нотации). Текстовые строки, которые 
выводятся на экран, заключаются не в двойные кавычки, а в 
апострофы. 

Оператор присваивания записывается не в виде равенства, а 
двумя символами: "двоеточие” и "равно”. Для отделения опера¬ 
торов друг от друга, когда они расположены в одной строке, в 
Бейсике употребляется двоеточие (строки 40, 60, 80, ПО), а Пас¬ 
каль использует вместо этого ^очку с запятой. Нотация арифмети¬ 
ческих выражений для нашего примера совпадает. 

Промежуточный вид программы показан на листинге 59. Пока 
она напоминает исходный вариант: другим стало только внешнее 
оформление операторов. 

Пойдем дальше. Наступил момент, когда различия в языках 
станут более заметны. 

В Бейсик-программе имеется цикл, который отвечает за по¬ 
вторение процесса поиска. Он построен типичным для Бейсика 
способом: с помощью условного оператора и оператора перехода 
СОТО. Дисциплина программирования, за которую ратует Пас¬ 
каль, рассматривает оператор СОТО как "вредный”. Что это 
значит? То, что нужно стараться обходиться без него. "Да как же 
без него?!" — воскликнет программист, воспитанный на Бейсике. 
На это многие приверженцы Паскаля смогут со всей ответствен¬ 
ностью заявить, что успешно (и совершенно сознательно!) из¬ 
бегали в своей программистской практике пресловутого опера¬ 
тора перехода. Другие, правда, считают, что применение СОТО 
иногда допустимо. Однако подавляющее большинство сходится 
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во мнении, что ситуации, где употребление этого оператора оправ¬ 
данно, хорошо известны и очень немногочисленны — это случаи 
так называемого структурного СОТО (выход из цикла, заверше¬ 
ние процедуры и т. п.). 

Собственно говоря, поклонники Бейсика легко обнаружат, 
что им порой тоже удается обойтись без СОТО. Речь идет об 
операторе РОК. Что такое РОК, как не способ организации цикла 
без оператора перехода? Этим оператором можно не пользовать¬ 
ся, но нельзя отрицать, что с ним программирование итератив¬ 
ного процесса и быстрее, и проще, и надежнее. 

В нашей задаче, однако, оператор РОК неприменим, поскольку 
число повторений цикла заранее неизвестно. В Бейсик-программе 
нам пришлось употребить оператор перехода. В Паскале же, 
кроме РОК, имеются и другие способы организации цикла без 
СОТО, рассчитанные на самые разные случаи. У вас возникла 
необходимость многократно выполнить участок программы? 
Задумайтесь: при каком условии группа операторов должна 
повторяться? (Дейкстра говорит: "Определите инвариант цик¬ 
ла”) . Найдя условие повторения (или, что равносильно, условие 
выхода), мы будем готовы грамотно записать цикл на Паскале. 

Условие повторения в нашем примере сформулировано в стро¬ 
ке 190: Б>= 1 (листинги 58, 59). Условие выхода из цикла будет 
противоположным: Б < 1. Повторяться должны операторы в стро¬ 
ках от 80 до 180. Можно следующим образом выразить смысл 
этого участка программы: 

ПОВТОРЯТЬ 
... операторы 

ПОКА НЕ выполнено условие выхода 

Замените выделенные слова их английскими эквивалентами 
(КЕРЕАТ-ШШЬ) и вы получите конструкцию повторения, кото¬ 
рую предлагает Паскаль: 

70 КЕМ-Основной цикл 

75 КЕРЕАТ 

80 . 


180 . 

190 ШТІЬБ< 1 

Введенная дополнительно строка 75 и парная ей строка 190 
охватывают повторяющуюся группу операторов — "тело цикла”, 
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благодаря чему адрес перехода, размещавшийся в строке 190, 
не нужен (а значит, не нужен и сам СОТО). Для наглядности запи¬ 
шем тело цикла ”уступом”. 

Теперь мы начинаем догадываться, что номер строки требуется 
Бейсику не столько для обозначения порядка операторов, сколь¬ 
ко для того, чтобы при желании можно было на любой из них 
передать управление с помощью СОТО. 

Объявив СОТО ”вредным”, мы закономерно приходим к за¬ 
ключительному шагу. Нужно освободиться, словно от скорлупы, 
от номеров строк, и на наших глазах рождается птенец, в кото¬ 
ром угадывается уже облик настоящей Паскаль-программы! (лис¬ 
тинг 60). 

По своему замыслу и строению конструкции КЕРЕАТ-ІЖПЬ 
Паскаля и РОК-ЫЕХТ Бейсика довольно сходны. Обе они обхо¬ 
дятся без СОТО. Однако Бейсик останавливается на полдороге. 
Оператор РОК—ХЕХТ, состоящий из нескольких пронумерован¬ 
ных строк, сохраняет лишь видимую цельность. Всегда ведь есть 
возможность — и искушение — попасть (посредством СОТО!) 
прямо внутрь цикла, минуя его заголовок. Логика оператора на¬ 
рушается, он на глазах рассыпается на отдельные строки, и общая 
правильность программы с этого момента находится под вопро¬ 
сом. С точки зрения Паскаля конструкция повторения есть еди¬ 
ный оператор, в который "упакованы” другие, и исполнить их 
можно только все вместе. 

Чтобы наша программа оформилась окончательно, нужно доба¬ 
вить ей немного оперения. 

Иначе выглядят в Паскале комментарии: они заключаются в 
фигурные скобки или ограничиваются парами символов (* и *). 

Будучи лишены номеров, операторы всегда должны отделять¬ 
ся друг от друга точкой с запятой независимо от того, 
располагаются они в одной строке текста программы или же 
в разных. 

Небольшое изменение коснулось строки 80. Вместо оператора 
ХѴКІТЕЬХ употреблен оператор \ѴШТЕ, действие которого соот¬ 
ветствует действию оператора РКШТ, если тот завершается точ¬ 
кой с запятой (строка 80 листинга 58): дальнейший вывод или 
ввод (оператором КЕАБ) продолжается на той же строке экрана, 
а не переходит на следующую. 

Программу в целом необходимо оформить как отдельный 
блок, заключив ее в "скобки” ВЕСШ (перед первым операто¬ 
ром) и ЕХБ (за последним оператором) , Самый последний сим¬ 
вол программы — точка. 

Этому блоку предпосылается строка — заголовок программы, 
содержащий ее имя: 
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РКОСКАМ СОКРОВИЩЕ; 

ВЕСШ 

( * тело программы *) 

ЕШ. 

На этом дисциплинирующие требования Паскаля не кончаются 

Каждую переменную, которую программист ввел в программу, 
он должен "объявить” следующим образом. Имени переменной 
предшествует слово ѴАК, после имени следует двоеточие и указа¬ 
ние ее типа. Описания нескольких переменных можно объединять 
через точку с запятой, а однотипные — перечислять через запятую: 

ѴАК АХ, АУ, ВХ, ВУ, БАХ, БАУ, Б: КЕАЬ; 

№ ШТЕСЕК; 

У нас семь вещественных переменных (тип КЕАЬ) и одна це¬ 
лочисленная (тип ШТЕСЕК). Тип задает возможные значения 
переменной, так что, скажем, N нельзя присвоить вещественное 
значение.. Эта характерная особенность Паскаля, называемая 
контролем, типов, призывает программиста к аккуратному и 
однозначному употреблению переменных и предохраняет от воз¬ 
можных ошибок, связанных с путаницей в их значениях. 

В Паскале не требуется присваивать каждой переменной началь¬ 
ное значение, но иногда это просто необходимо во избежание оши¬ 
бок. ”По умолчанию” никакого значения (например, нулевого) 
переменной не присваивается (в отличие от Бейсика, который 
и в этом дает программисту "поблажку”). Поэтому в нашем при¬ 
мере тело программы должно начинаться с оператора 

1Ч:= 0; 

Все эти "строгости” делают процесс программирования более 
кропотливым, однако в них есть глубокий смысл: обеспечить вы¬ 
сокую надежность работы программы, после того как ее разра¬ 
ботка будет завершена. 

Описания переменных (а также констант, функций, процедур и 
некоторых других элементов) следуют между заголовком и бло¬ 
ком — телом программы. Окончательный вид Паскаль-програм¬ 
мы на листинге 61. (Сами проанализируйте мелкие различия 
и тексте вопросов и сообщений.) 

Когда эта программа будет исполняться, мы столкнемся с еще 
одним небольшим различием языков: при задании очередного 
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шага в ответ на вопрос ”Куда пойдете?” игроку нужно вводить 
значения не через запятую, как в Бейсике, а через пробел. 

В листингах 62 и 63 даны улучшенные варианты программ 
соответственно на Бейсике и Паскале. 

При выборе начальньіх координат игрокаиспользована функция 
8СІѵ[(Х) (знак числа), которая дает +1 для положительного, 
— 1 для отрицательного, 0 для нуля. В исходном варианте про¬ 
граммы начальные координаты всегда оказываются положитель¬ 
ными, и игроку заведомо выгодно начинать игру отрицательным 
изменением координат. Оператор КАЫООМІ2Е гарантирует 
каждый раз новое течение игры. 

Мы предполагаем, что в нашем варианте Паскаля функции, со¬ 
ответствующей 8014, нет. Это обстоятельство вовсе не должно 
нас смущать: Паскаль дает программисту возможность описывать 
свои собственные функции и процедуры. В листинге 63 показано, 
как описывается функция 8СМ 

Возведение в квадрат заменено здесь обращением к функции 
80К с той целью, чтобы программа работала под конкретным 
транслятором (Турбо Паскаль). По иронии судьбы Турбо Паскаль 
для возведения в квадрат использует функцию, которая в Бейси¬ 
ке традиционно употребляется в противоположном значении — 
для извлечения квадратного корня ... 

Оглянемся на проделанный путь. Первый этап перехода от 
Бейсика к Паскалю состоял в незначительных заменах некоторых 
обозначений и названий операторов. На заключительном этапе 
преобразований было больше и самым существенным из них 
являлось описание переменных. 

Решающим моментом трансформации программы, однако, бы¬ 
ло введение оператора КЕРЕАТ-ІЖТІБ. Он является одной 
из так называемых конструкций управления в Паскале, которые 
позволяют обходиться без СОТО. То, что СОТО в языке програм¬ 
мирования не обязателен, доказано даже теоретически, однако 
применение управляющих конструкций чрезвычайно полезно и 
при практическом программировании. 

Во-первых, оно исключает программы-"спагетти”, для кото¬ 
рых характерны беспорядочные передачи управления, например 
извне цикла на какой-либо оператор внутри его тела. Такие про¬ 
граммы, часто возникающие в результате непродуманного про¬ 
граммирования на Бейсике, чрезвычайно трудно отлаживать и 
вносить в них согласованные изменения. 

Во-вторых, программу гораздо удобнее читать и понимать. 
Циклы, изображаемые управляющими конструкциями, принято 
писать "уступами”, со сдвигом тела цикла в глубину строки. 
Текст программы сразу предстает взгляду расчлененным на 
структурные элементы и воспринимается не только на уровне 
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мелких, малосущественных деталей (что типично для Бейсика), 
но и на уровне общей архитектуры. В круговороте однообразных 
ІР-ТНЕІЧ-СОТО Бейсика бывает нелегко ориентироваться, труд¬ 
но угадать, где границы содержательных фрагментов. В Паскале 
все управляющие конструкции легко различимы уже при беглом 
чтении и каждая из них несет строго определенную смысловую 
нагрузку. 

Чтобы еще глубже почувствовать разницу между двумя языка¬ 
ми, нужно представлять себе, в чем состоят особенности работы 
программиста при использовании каждого из них. 

И Бейсик, и Паскаль — языки высокого уровня. Это значит, 
что они универсальны, не связаны с конкретной вычислительной 
машиной. 

Чтобы программа, написанная на таком языке, могла быть 
исполнена на реальной ЭВМ, необходима особая программа- 
транслятор, выполняющая роль переводчика на машинный язык. 
Благодаря наличию транслятора программист приобретает сущест¬ 
венное удобство: ему не обязательно знать специфику конкрет¬ 
ной машины. Написанная на языке высокого уровня, его програм¬ 
ма становится, как говорят, переносимой с одной ЭВМ на другую. 

Есть два основных типа трансляторов: интерпретаторы и ком¬ 
пиляторы. Для Бейсика типичны первые, для Паскаля — вторые. 
В этом снова проявляется резкое несходство между двумя 
языками. 

Интерпретатор работает как синхронный переводчик: он пы¬ 
тается понять каждое очередное предложение (оператор) про¬ 
граммы, т.е. выразить его ”смысл” в виде цепочки команд ЭВМ 
и тут же выполнить их. По-другому действует компилятор. 
Если продолжить аналогию, он переводит программу как некий 
связный рассказ, учитывая взаимоотношения ее частей и выявляя 
не только ошибки в отдельных элементах, но и несогласованности 
между ними. Требования к "правильности” программы у компи¬ 
лятора намного выше (вспомните, к примеру, описание перемен¬ 
ных в Паскале). 

Компиляция часто производится за несколько просмотров 
программы. Программа при этом не исполняется: перевод готов, 
но пока не "звучит”. Одна из причин этого состоит в том, что ком¬ 
пилируется программа обычно по частям, особенно если она боль¬ 
шая и сложная. Специальная программа-компоновщик собирает 
отдельные модули, полученные после трансляции, в единое целое: 
окончательный, готовый к исполнению машинный код. 

Резюме: интерпретатор намного проще в обращении. Вследствие 
этого Бейсик позволяет непосредственно "ощутить” процесс 
программирования. Программа может быть составлена (даже не 
полностью) и тут же исполнена "на пробу”. Программист может 
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вмешиваться в процесс исполнения и сразу вносить необходимые 
коррективы в работу программы, вновь и вновь повторяя этот 
цикл отладки. Для начинающего программиста, который часто 
ошибается, эти свойства языка, конечно, чрезвычайно привлека¬ 
тельны, поскольку ошибка обнаруживается легко и быстро. 

В Паскале обнаружение ошибки в программе и ее исправление 
сопряжено со значительно большими затратами труда и времени. 

Во-первых, нужно еще "дождаться”, пока можно будет попро¬ 
бовать программу в деле. Компиляция каждого модуля может 
длиться несколько минут, а ведь затем надо еще собрать их 
воедино. Во-вторых, даже при безошибочной компиляции отдель¬ 
ных частей отнюдь не гарантирована правильная работа програм¬ 
мы в целом: части могут быть плохо пригнаны друг к другу ... 
Предположим теперь, что ошибка обнаружена. Мы не можем 
исправить только ошибочное место программы и сразу увидеть 
эффект — так, как мы делаем это на Бейсике. Придется 
перекомпилировать весь модуль, иногда из-за одной строки — 
несколько сот. 

Чем же тогда хорош Паскаль? И чем плох Бейсик? 

Нетрудно осознать, что упомянутые минусы Паскаля являются 
платой за несомненные плюсы. 

Да, программу нельзя тут же исполнить. Однако потом оттран¬ 
слированная и скомпонованная программа будет работать намно¬ 
го быстрее, чем подобная программа на Бейсике. Ведь интерпрета¬ 
тор Бейсика переводит каждый оператор перед каждым его 
исполнением, а значит, всякий раз тратит время на перевод. 
Как синхронный переводчик, он, "сказав”, тут же забывает ска¬ 
занное и в следующий раз должен будет повторить всю проделан¬ 
ную работу. В отличие от этого, переводчик новеллы знает, что его 
перевод, сделанный однажды, будут потом читать тысячи читате¬ 
лей в течение многих лет. Компилятор с Паскаля выполняет свою 
работу, также тщательно выверяя окончательный результат. 
После компиляции и сборки отлаженную Паскаль-программу 
можно запускать многократно, и затраты труда на ее разработку, 
так же как и затраты времени на трансляцию, окупятся с лихвой. 

Да, добавляется "лишний” этап сборки программы. Однако 
появляется возможность разбивать сложную программу на 
небольшие куски и отлаживать их независимо, постепенно, 
как бы выстраивая здание из сравнительно самостоятельных 
блоков, легче поддающихся проектированию. Устранив ошибки 
в одном из модулей, мы в дальнейшем не будем его больше ком¬ 
пилировать, сосредоточившись на других частях программы, и 
лишь на завершающей стадии сборки используем заготовленный 
блок. Очень важно, что отдельные части могут разрабатываться 
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независимо разными программистами и в разных программах 
можно многократно использовать ранее созданные модули. 

Рассуждения, которые мы проводили на протяжении всей гла¬ 
вы, показывают, в чем состоит промежуточный характер Бейсика 
между языками низкого и высокого уровня. Он, так сказать, 
от одних отстал, а к другим не пристал. Сколько можно, Бейсик 
"тянется” к языкам высокого уровня, стремясь сохранить 
свои собственные достоинства. Так, имеются диалекты Бейсика 
с общепринятыми управляющими конструкциями, с про¬ 
цедурами и пр. 

Вопрос о том, какой язык выбрать для себя в качестве основ¬ 
ного рабочего — Бейсик или Паскаль, во многом зависит от ваших 
целей. Программирование игр по традиции очень широко ведется 
на Бейсике — вероятно, сказывается удобство оперативного вне¬ 
сения изменений, что характерно для игровых программ. 

Более серьезные, профессиональные задачи можно с успехом 
разрабатывать на Паскале, причем преимущества этого языка 
возрастают с усложнением ваших программ и увеличением их 
размеров. Особенно ценно знакомство с Паскалем, если 
в какой-то степени стремиться к изучению основ программирова¬ 
ния как самостоятельной дисциплины. Паскаль полезен еще и 
тем, что он дает возможность "спуститься” в дальнейшем 
к Бейсику на новом качественном уровне и проводить в его рам¬ 
ках систематический, ”паскалеподобный” стиль программирова¬ 
ния: более надежный, менее чреватый ошибками. 


ГЛАВА 9 

ЕЩЕ НЕМНОГО ОБ ИГРАХ 

Ранее мы провели классификацию компьютерных игр, выделив 
следующие классы: игрушки и живые картинки, обучающие и 
тренирующие игры, логические и игры ”на ловкость”. 

Три последних категории можно рассматривать с других пози¬ 
ций, выделяя в них самые различные признаки. 

Приведем примеры таких классификаций: 

— игры пошаговые, состоящие из последовательности дискрет¬ 
ных шагов (ходов), и игры, протекающие в режиме реаль¬ 
ного времени. В пошаговых играх время между двумя нажа¬ 
тиями на клавиши никак не влияет на течение и исход игры. 
В играх реального времени величина интервала между 
двумя нажатиями может оказать на результат существенное 
влияние; 
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— игры антагонистические, в которых игроки должны старать¬ 
ся помешать или "навредить” друг другу для достижения 
своих целей, и игры неантагонистические, в которых игроки 
могут достигать своих целей, не мешая друг другу; 

— игры конечные, в которых хотя бы для одного из игроков 
может наступить момент, называемый "победа”, и игры бес¬ 
конечные, в которых бывают частные успехи, но окончатель¬ 
ной победы на наступает; 

— игры со случайными событиями и детерминированные 
игры, в которых все события происходят по определенным 
законам; 

— игры для одного, двух и более участников; 

— игры, в которых за некоторых из игроков играет 
компьютер; 

— игры, сложность которых зависит от уровня подготовки ее 
участников: чем успешнее вы играете, тем труднее вам ста¬ 
новится играть. 

В последней категории можно дополнительно различать: игры 
с несколькими уровнями сложности, в которых сложность выби¬ 
рается самим игроком; усложняющиеся, в которых сложность 
повышается автоматически; адаптирующиеся, сложность кото¬ 
рых приспосабливается к уровню подготовленности игрока 
(см. разд. 9.6). 

Самые традиционные компьютерные игры — это пошаговые 
антагонистические конечные детерминированные игры для двух 
участников, один из которых — компьютер. Эти игры создавались 
в то время, когда компьютеры были дорогостоящим оборудова¬ 
нием. Создавались они для научных целей, в рамках исследований 
по искусственному интеллекту. Ситуация начала меняться после 
того, как появилась возможность приобретать компьютеры 
в личное пользование. Если до этого момента игры программиро¬ 
вались в основном, чтобы продемонстрировать "интеллектуаль¬ 
ные” возможности компьютеров, то с появлением персональных 
компьютеров игры стали в основном служить для целей развлече¬ 
ния. Появился рынок сбыта игровых программ, и не научные, 
а коммерческие интересы стали диктовать типы производи¬ 
мых игр. 

В настоящее время наиболее распространенным типом игр яв¬ 
ляются игры реального времени неантагонистические бесконечные 
усложняющиеся недетерминированные для одного участника. 

Почему именно такие игры создаются в расчете на широкого 
потребителя? 

Игры реального времени в большей степени захватывают вни¬ 
мание игроков, чем пошаговые, поскольку в них нельзя отвле¬ 
каться. Чуть отвлекся — проиграл. Неантагонистические игры 
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освобождают программиста от необходимости придумывать 
стратегию игры компьютера и, значит, проще для реализации. 
Бесконечные игры более азартны, чем конечные, поскольку 
выигрыш, кажущийся достижимым, все время ускользает. 
Усложняющиеся игры способны удовлетворить запросы более 
широкого класса игроков, чем игры с несколькими уровнями 
сложности, а реализуются они проще, чем адаптирующиеся. 
Недетерминированные игры при прочих равных условиях обла¬ 
дают большим разнообразием, чем детерминированные. 
Игры для одного участника более популярны, потому что они 
не требуют партнера для игры. 


9.1. Наука побеждать 

Успешно играть в ту или иную игру — значит обладать определен¬ 
ными знаниями, навыками, способностями. Как показывает прак¬ 
тика, наиболее интересны игры, для успешного ведения которых 
требуется широкий спектр способностей игрока. В этом случае 
игрок может эксплуатировать те из них, которые у него развиты 
в наибольшей степени. Игры, ориентированные на использование 
узкого класса способностей, привлекают лишь тех игроков, 
которые данными способностями обладают или серьезно на¬ 
строены их развивать. Например, игра ”Стоп” требует лишь хоро¬ 
шей реакции, а игра "Сложи” - только умения быстро склады¬ 
вать несколько чисел. Обе эти игры довольно быстро приедаются 
игрокам. 

”Стоп ”. На экране дисплея расположены мишени. Необходимо 
нажатием на клавишу "пробел” остановить быстро перемещаю¬ 
щийся по экрану курсор в пределах какой-либо мишени. За оста¬ 
новку курсора за пределами мишеней очки вычитаются. (Автор 
игры — О. А. Гончаров.) 

”Сложи ”. На экране дисплея на короткое время (1—2 с) появ¬ 
ляются несколько чисел. Задача игрока максимально быстро 
сообщить их сумму компьютеру. В зависимости от качества отве¬ 
тов количество предъявляемых чисел изменяется от 2 до 40, 
а диапазон от 10 до 1000. (Автор игры — О. А. Гончаров.) 

Приведем перечень качеств, которыми должен обладать игрок 
экстракласса: 

1) хорошее владение средствами управления: быстрота и точ¬ 
ность манипуляций; 

2) быстрая и правильная реакция на происходящие события; 

3) чувство времени, умение точно выдерживать заданные вре¬ 
менные интервалы, в том числе в зависимости от скоро¬ 
стей передвижения объектов; 
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4) способность следить за несколькими объектами одновре¬ 
менно; 

5) знание географии игрового поля, особенностей поведения 
игровых объектов и "физических” законов игрового 
мира; 

6) знание конкретной предметной области, которая модели¬ 
руется в игре; 

7) умение искать закономерности; 

8) умение предугадывать действия противника; 

9) знание алгоритма выигрыша или ведущих к нему эвристик; 

10) способность к быстрому и максимально полному перебору 
основных вариантов; 

11) память на текущие события, т.е. на события произошедшие 
в данном сеансе игры; 

12) использование прошлого опыта, т.е. того, что происходило 
в предыдущих сеансах игры; 

13) способность интенсивно работать в течение всего сеанса иг¬ 
ры, иногда в течение довольно продолжительного времени. 

Приведенный перечень может быть основой для еще одной 
классификации игр. Например, игры на реакцию, на сообразитель¬ 
ность, на умение считать, на чувство времени, на умение искать 
закономерности и т.д. 

Качества 7—12 необходимы преимущественно в пошаговых 
играх, качества 1—9 в играх реального времени. 

Особый интерес представляет умение искать закономерности. 
Существует отдельный класс игр, ориентированных на реализацию 
этой способности. В них полный перечень и поведение игровых 
объектов не сообщаются игроку. Он сам в процессе игры должен 
выяснить сколько их, как их найти и как с ними бороться. 
Начало этому классу игр положила игра "Приключение”, разрабо¬ 
танная в 1975 г. в Массачусетском технологическом институ¬ 
те (США) Уиллсом Кроузером и Доном Вудсом. 

” Приключение ”. "Цель игры — исследование пещеры и поиск 
ценностей, спрятанных там. Игрок двигается из одного места 
в другое, используя простые двухсловные команды. Пещера пол¬ 
на сокровищ и опасностей. Гигантская змея, тролль и дракон пре¬ 
пятствуют игроку на его пути. Банда кровожадных тварей прак¬ 
тикуется в метании ножа в его незащищенное тело. Пират-клепто¬ 
ман постоянно ворует у него найденные им драгоценности. 
Но хуже всего то, что его лампа выгорает по прошествии опреде¬ 
ленного времени, а исследование пещеры в темноте — самоубий¬ 
ство”. (процитировано по работе[16]). 
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9.2. Какие игры нравятся? 

В числе факторов, определяющих привлекательность игр, 
необходимо, на наш взгляд, выделить следующие: 1) интересный 
сценарий; 2) богатое внешнее оформление; 3) кажущаяся про¬ 
стота выигрыша; 4) бесконечность игры, т.е. недостижимость 
поставленной цели; 5) наличие большого числа стратегий, кажу¬ 
щихся выигрышными; 6) разнообразие игровых ситуаций. 

Для того чтобы человек был заинтересован в приобретении 
игры, надо вызвать у него желание сыграть в нее хотя бы 
один раз. Именно этой цели и служат занимательный сценарий, 
красочное оформление игры и кажущаяся легкость выигрыша. 

Из этих трех факторов интересный сценарий и кажущаяся 
простота относятся к содержанию игры — к ее идее и правилам. 
Именно это и сложнее всего придумать. Внешнее оформление 
требует скорее владения определенными техническими приемами, 
нежели творческих усилий, но именно внешнюю сторону игры 
пользователь видит, когда сталкивается с ней в первый раз. 
Поэтому оформлению игр авторы обычно уделяют довольно 
много внимания. 

Бесконечность игры, наличие большого числа выигрышных 
стратегий и разнообразие игровых ситуаций создают у игроков 
желание играть еще и еще. В частности, конечные игры сильно 
проигрывают в конкуренции бесконечным (см. разд. 9.4). 
Недостижимость конечной цели, и при этом постоянное продвиже¬ 
ние вперед в бесконечных играх вызывают у игрока положитель¬ 
ные эмоции. 

Наличие большого количества "выигрышных” стратегий дает 
возможность игроку в течение длительного времени выбирать и 
вырабатывать собственную стратегию. 

Разнообразие ситуаций не позволяет игре приедаться. Наилуч¬ 
ший вариант — это бесконечное разнообразие. Идеальным бы¬ 
ло бы возникновение по мере возрастания сложности игры 
совершенно новых объектов, живущих по новым законам и 
по-новому взаимодействующих с другими объектами и с игроком. 

Однако это плохо увязывается с детерминированным характе¬ 
ром программирования, которое может дать лишь конечный на¬ 
бор объектов и ситуаций, не исключая и "случайное” (фактически 
иссмідослучайное) поведение объектов. На практике выходом из 
положения служит конечный набор ситуаций, расположенных 
но море возрастания сложности (причем таким образом, чтобы 
ііыіп рыш в последней ситуации был практически недостижим). 
Час т это делается за счет увеличения скорости игры. 

Разнообразие не должно быть неуправляемым. Желательно, 


Г) ІНІ. 
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чтобы новые черты появлялись в игре при определенных условиях 
и в определенном порядке. Тогда у игрока будет возможность 
привыкнуть к новой ситуации и потренироваться в ней. 

Полезно оценить и оптимальное время, в течение которого 
должна вестись игра. Партия не должна длиться слишком долго — 
длинные партии утомляют игроков. В то же время игра, конечно, 
не должна быть и слишком короткой — короткие партии вызы¬ 
вают раздражение: ”Не успел понять, что к чему, как все кончи¬ 
лось”. Детальные психологические исследования должны пока¬ 
зать, какое среднее время партии является оптимальным. Прак¬ 
тика показывает, что продолжительность партии в 45—120 с доста¬ 
точно хорошо удовлетворяет необходимым требованиям в играх 
реального времени. 

Какие способы применяют в играх для того, чтобы партия 
не длилась слишком долго? 

Распространенный способ завершения партии — по исчерпании 
какого-либо ресурса. Например, в "Посадке на Луну” (см.разд.9.5) 
партия очень быстро завершается после истечения горючего. 
В качестве ограничивающего ресурса, если не находится другого 
подходящего, часто используют время — партия непременно завер¬ 
шается в пределах какого-то временного отрезка. Безусловно, 
правила игры должны быть такими, чтобы за короткое время, 
отведенное на партию, игрок или проиграл, или выиграл. 

Когда мы говорим о бесконечных играх, подразумевается, что 
такая игра состоит из серии коротких раундов. В этом случае 
также существуют психологические ограничения на продолжи¬ 
тельность сеанса. Это 10—30 мин. Авторы должны стремиться 
к тому, чтобы для начинающих, но еще не опытных игроков 
сеанс длился не менее 3, но не более 5 мин. Игроки средней ква¬ 
лификации, как правило, удовлетворяются 10 минутами. 
Игрок любой квалификации во всяком случае не должен играть 
свыше 30, лучше 15 мин. Но при этом заметим, что резкое повы¬ 
шение уровня сложности игры на одном из ее этапов (с целью 
ускорить проигрыш игрока и тем самым сократить продолжи¬ 
тельность игры) обычно вызывает отрицательное отношение 
к игре. 

9.3. Оформление и сценарии игр 

Как мы уже отмечали, оформление, внешний вид игры имеют 
большое значение с точки зрения ее привлекательности. 
Красочно оформленная игра доставляет удовольствие не только 
игрокам, но и зрителям, притягивает к компьютеру. Это особенно 
важно учитывать при конструировании обучающих программ для 
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детей. В идеале хорошая игра должна смотреться не хуже, чем 
"живые картинки”. 

Приходится заметить, однако, что если не касаться художест¬ 
венной стороны вопроса и остаться на чисто технической точке 
зрения, то хорошее внешнее оформление требует дополнительных 
затрат времени как при разработке программы, так впоследствии 
и при ее исполнении. 

Это существенно сказывается на играх реального времени, 
где время перерисовки изображения не должно превышать 
примерно 1/15 с. В противном случае изображение будет мерцаю¬ 
щим и малоприятным для глаза. Поэтому игры реального време¬ 
ни с многочисленными и быстро двигающимися объектами вынуж¬ 
денно ограничиваются несложными изображениями. 

Хорошее впечатление на зрителей и игроков производят 
какие-либо необычные, забавные элементы, включенные в игру: 
остановки персонажей в неестественных положениях, их неуклю¬ 
жие или, наоборот, чрезвычайно ловкие движения при перемеще¬ 
нии и т.п. Как правило, лучшие образцы игр включают такие раз¬ 
влекательные элементы. 

Наиболее важное значение имеет сценарий игры. Сценарии мо¬ 
гут быть самыми разнообразными: шуточными, математически¬ 
ми, фантастическими, абстрактными и т.д. В качестве примера 
игр с фантастическим сценарием приведем многочисленные игры 
под названием "Звездная война”. Рзндзю — игра с абстрактным 
сценарием (крестики-нолики на большом поле). 

Сравните две следующие игры: 

Букву ”а”, быстро двигающуюся по экрану дисплея, остано¬ 
вить как можно ближе к букве ”с”. 

Поймать сетью барона Мюнхгаузена, проносящегося по экрану 
дисплея верхом на ядре. 

Эти две игры различаются лишь сценарием и соответствующи¬ 
ми изображениями. Но не оставляет сомнения, что при прочих 
равных условиях вторая игра будет привлекательнее первой. 
Мы не откроем секрета, если скажем, что хороший сценарий — 
это половина игры. 

Однако если сама игра, ее правила придуманы достаточно хо¬ 
рошо, то сценарий может быть достаточно схематичным, абстракт¬ 
ным. Вспомните про давным-давно придуманные, но до сих пор 
популярные шашки и шахматы. 
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9.4. Бесконечные игры 

Конечные игры обладают одним недостатком. Если в такой иг¬ 
ре человек все время побеждает, то она становится для него 
неинтересной, слишком простой. ”3десь все заранее ясно” — 
думает он и отворачивается. Так же быстро надоедает игра, если 
человек все время проигрывает. Кому приятно чувствовать себя 
дураком? Введение нескольких уровней сложности лишь незначи¬ 
тельно улучшает положение. Превращение игры в усложняю¬ 
щуюся также не дает действенного эффекта. Но преобразование 
ее в бесконечную усложняющуюся приносит ощутимый резуль¬ 
тат. Побеждая на очередном этапе бесконечной игры, человек чув¬ 
ствует возросшее мастерство. С другой стороны, сколько бы он 
ни играл — окончательная победа невозможна, и всегда остается 
уверенность, что он может улучшить свое последнее достижение. 
Поэтому бесконечные усложняющиеся игры в течение длительно¬ 
го времени привлекают к себе игроков. 

Бесконечные игры могли бы действительно продолжаться бес¬ 
конечно долго, если бы не было трех ограничений: в мастерстве 
игрока, его терпении и в производительности компьютера. 

Практически бесконечной компьютерная игра становится тогда, 
когда максимум возможностей игроков достигается раньше, чем 
исчерпывается производительность компьютера. В противном слу¬ 
чае потенциально бесконечная игра практически становится 
конечной, поскольку в этом случае, начиная с какого-то момента 
сложность игры перестает возрастать. ”Лабиринт” — пример бес¬ 
конечной игры. 

” Лабиринт ”. По лабиринту, построенному из заграждений и 
изображенному на экране, от левого края экрана к пра¬ 
вому движется автомобиль. Игрок с помощью джойстика 
может смещать автомобиль по вертикали. Задача игрока — 
так управлять автомобилем, чтобы сбить как можно меньше 
заграждений. Достигнув правого края, игрок получает оценку 
своего мастерства и новый лабиринт для преодоления. 
Сложность нового лабиринта зависит от числа сбитых загражде¬ 
ний в предыдущем заезде; он строится таким образом, чтобы 
игрок почти всегда играл на пределе своих возможностей. 
Завершается игра после того, как будет разбито пять авто¬ 
мобилей. 

9.5. Игры тренирующие, обучающие и развивающие 

Всякая игра обучает. Стремление добиться поставленной в игре 
цели стимулирует игрока напрячь свои силы, активизировать спо¬ 
собности. В самом худшем случае игра учит ... играть в нее. Но и 
тогда она развивает память и концентрацию внимания. 
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Таким образом, играть с компьютером не только чрезвычайно 
интересно, но и полезно. В подтверждение сказанного опишем 
несколько игр. 

” Анаконда ”. Змея, состоящая из буквенно-цифровых симво¬ 
лов, гонится за своим хвостом. На хвосте змеи сидит человек, 
задача которого уничтожить змею, отщипывая от нее символы. 
Если скорость, с которой человек нажимает на соответствующие 
клавиши, мала, то змея, постепенно удлиняясь, догоняет свой 
хвост и уничтожает человека. Игра развивает скоростные навыки 
владения клавиатурой. (Автор игры — О. А. Гончаров.) 

”Посадка на Луну”. Вы управляете космическим кораблем, 
совершающим посадку на Луну. Цель: совершить мягкую посад¬ 
ку при ограниченном запасе топлива. Игра демонстрирует основ¬ 
ные принципы посадки космических аппаратов на Луну. 

” Кассир ”. Компьютер, исполняющий роль покупателя, сооб¬ 
щает игроку, исполняющему роль кассира, фразы типа ”2 кило¬ 
грамма яблок и 6 килограммов капусты”. При этом на экране 
дисплея под надписью "Текущие цены” появляется текст: 
"Яблоки — 2 руб./ кг. Капуста — 20 коп./кг”. Задача игрока под¬ 
считать сумму денег, которую необходимо взять с покупателя и 
правильно отсчитать сдачу с купюры, предложенной покупателем. 
Оценка качества игры сообщается фразами типа: ”Вам присвоено 
звание кассир-отличник” или ”Вы уволены за недостачу денег 
в кассе”. (Автор игры — О. А, Гончаров.) 

По степени обучающего воздействия на человека игры можно 
разделить на три класса: тренирующие, обучающие и развивающие. 

Тренирующие игры способствуют отработке каких-либо навы¬ 
ков, которыми игрок уже обладает. Этот класс игр, вообще гово¬ 
ря, не ориентирован на выработку у игрока каких-либо новых 
навыков или сообщение ему каких-либо новых знаний. 

Обучающие игры помогают игроку приобрести новые знания и 
навыки, полезные .в практической деятельности. Например, игра 
"Анаконда” помогает изучать клавиатуру пишущей машинки 
(она совпадает с клавиатурой компьютера), постепенно уве¬ 
личивая в определенном порядке набор символов, входящих 
в тело змеи. 

Термин "развивающие игры” начал использовать в советской 
литературе Б.П. Никитин [11]. Свое название они заслужили 
благодаря тому, что эффективно развивают творческие способно¬ 
сти у детей. По мнению Б.П. Никитина, раннее использование раз¬ 
вивающих игр в воспитании детей — залог появления талантливых 
инженеров и ученых. Именно поэтому развивающие игры ориенти¬ 
рованы в первую очередь на детей и являются незаменимым 
подспорьем в их обучении. 
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Развивающие игры являются подклассом обучающих. Отличие 
развивающих игр от других обучающих игр состоит в том, что они 
развивают у игрока наиболее важные и фундаментальные с точки 
зрения умственного развития способности и навыки. Вряд ли 
можно привести перечень таких способностей и навыков, 
не вызвав при этом критических замечаний относительно его 
неполноты или избыточности. Назовем лишь некоторые из них, 
взяв за основу названия рубрик журнала "Наука и жизнь”. 
Фундаментальными способностями у взрослых считаются: 
сообразительность, умение сосредоточиться, умение мыслить 
логически, пространственное воображение. У детей младшего 
возраста: все перечисленное плюс умение читать, считать, сравни¬ 
вать, классифицировать и запоминать. 

Примеры развивающих игр: ”Пексесо”, ”Тетрис”. Большое ко¬ 
личество развивающих игр приведено в книге Б.П.Никитина 
"Развивающие игры” [10]. Часть из них можно реализовать 
на компьютере. К сожалению, нам пока не известно о таких 
попытках. 

Компьютер может дать жизнь таким развивающим играм, кото¬ 
рые иначе реализовать довольно затруднительно (см. описание 
игры "Повтори”). В частности, компьютерная программа может 
автоматически проверять правильность выполнения задания, что 
позволит ребенку играть в такие игры в отсутствие взрослых. 
Это заставляет предположить, что в ближайшем будущем 
компьютеру будет отведена важная роль в обучении подрастаю¬ 
щего поколения. 

”Повтори ”. На экране дисплея на короткое время появляется 
изображение матрицы, в ячейках которой расположены цифры, 
буквы, слова или картинки. После исчезновения изображения 
игрок должен восстановить матрицу по памяти. Размер матрицы 
может изменяться от 1 X 3 до 10 X 10. Оценка качества выполне¬ 
ния задания включает в себя точность воспроизведения матрицы, 
ее размер, и затраченное время. В одном из вариантов этой игры 
вместо воспроизведения матрицы требуется назвать сумму цифр, 
расположенных в ее ячейках. 

” Пексесо ”. На столе раскладываются карточки картинками 
вниз. Каждая картинка имеется в двух экземплярах. Игроки по 
очереди открывают по две карточки. Если картинки на них 
разные, то карточки кладутся на свои прежние места. Если же 
картинки одинаковые, то игрок забирает их себе и может открыть 
еще две карточки. Побеждает тот, кто соберет больше карточек. 

” Тетрис ”. В этой игре тренируется умение быстро выклады¬ 
вать сплошной паркет из фигурок тетрамино. Фигурки появляют¬ 
ся по одной. Игрок должен за короткое время найти для очеред- 
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ной фигурки место в создаваемом паркете и с помощью операций 
перемещения и вращения поместить ее туда. Время, отводимое 
на размещение очередной фигурки, зависит от уровня сложности 
игры, который повышается автоматически. Незаполненные дыры 
в паркете считаются ошибками. Окончание игры происхо¬ 
дит после совершения игроком определенного числа ошибок. 
(Автор игры — А.Л.Пажитнов.) 

Развивающие игры, особенно интеллектуальные, чаще всего яв¬ 
ляются пошаговыми. Именно в этом режиме, когда нет ограниче¬ 
ния по времени, создаются условия для напряжения умственных 
способностей и, таким образом, для развития сосредоточения, 
силы и глубины мышления. Развивающей игрой для детей яв¬ 
ляются шахматы (перебор вариантов, двумерное воображение). 

9.6. Игры с переменной сложностью 

Среди игр, сложность которых может варьироваться, мы ранее 
выделили три категории. 

В играх с несколькими уровнями сложности игрок сам 
может выбрать уровень, на котором он будет играть. 
Сыграв несколько партий, игрок может изменить уровень слож¬ 
ности на более подходящий. 

Другой вариант — усложняющиеся игры. Игроку, ус¬ 
пешно закончившему партию, дается "приз” — возможность 
сыграть еще одну партию на более высоком уровне сложности. 
Таким образом, игрок проводит столько партий, сколько уров¬ 
ней он сумеет преодолеть. Если же на очередном уровне партия 
завершается неудачно, то принудительно заканчивается и вся игра, 
после чего игрок получает оценку: сумму баллов во всех прове¬ 
денных партиях. Тем самым игра стимулирует игрока сыграть 
как можно больше партий, чтобы увеличить свою оценку. 
А поскольку сложность увеличивается постепенно, игроку всегда 
кажется, что его последняя "роковая” ошибка, приведшая 
к проигрышу, совершена им случайно и в следующий раз он смо¬ 
жет ее избежать. Впрочем, вскоре практика игры покажет, что 
уронена его мастерства есть величина неслучайная и что он может 
быть повышен лишь регулярными тренировками — еще один сти¬ 
мул играть. 

(' точки зрения упражнения способностей игры такого типа 
не милйются пиилучшими, потому что основную массу време¬ 
ни игрок имкужценпо пронодит в несложных для себя партиях, 
нов конце концов может вызвать у него раздражение. 

Ионному обстоит дело в адаптирующихся играх. Здесь 
уровень сложности может но только увеличиваться, но и 
умічіь шиться в зависимости от качества игры человека. 
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В начале игры запрашивается, с какого уровня сложности игрок 
хочет начать, а по ее завершении он получает оценку своего мас¬ 
терства. Это либо суммарное число баллов за некоторое число 
партий, либо среднее число баллов за партию. 

В некоторых адаптирующихся играх отсутствует понятие пар¬ 
тии. Уровень сложности может изменяться непрерывно по ходу 
игры в зависимости от степени удачливости игрока. 

Процесс игры здесь всегда проходит на уровне сложности, 
примерно соответствующем уровню мастерства игрока, что создает 
у него положительный эмоциональный настрой. Такая обста¬ 
новка — постепенно усложняющиеся посильные задания — 
в наилучшей степени помогает развитию способностей [5], 
и с этой точки зрения именно адаптирующиеся игры предпочти¬ 
тельнее использовать для обучения детей в школах и других 
детских учреждениях. 

9.7. Сложности изменения уровня сложности 

Отметим ряд проблем, возникающих при программировании 
усложняющихся и адаптирующихся игр. 

Одна из них состоит в том, чтобы дать числовую оценку уровня 
сложности игры. Очевидно, более высокая оценка должна соот¬ 
ветствовать более сложной ситуации, а небольшое увеличение 
сложности должно приводить к небольшому увеличению оценки. 

Другая проблема: на сколько увеличивать сложность игры при 
переходе к новой партии? Резкое увеличение сложности нарушит 
постепенность, вызовет трудности в игре и в конечном счете 
раздражение игрока. Небольшое увеличение сложности вынудит 
его играть не в полную силу, что быстро ему наскучит. 

По всей видимости, увеличение сложности должно произво¬ 
диться пропорционально уровню мастерства, с которым игрок 
провел предыдущую партию. Но чему равен коэффициент пропор¬ 
циональности? И как выяснить уровень мастерства игрока? 
По результату партии? Но этот результат, вообще говоря, может 
колебаться в довольно значительных пределах. 

Кроме того, в самом понятии "сложности” кроется неравно¬ 
мерность. На низком уровне сложности увеличение результата 
на один балл достигается 5—10 минутами увлекательной игры. 
В то же время при сложности, близкой к предельной, такое же 
улучшение результата может потребовать от игрока нескольких 
месяцев регулярных тренировок. Не у всякого хватит на это тер¬ 
пения. Потому и оценки уровня сложности и мастерства игрока 
чаще всего представляют в виде пяти-, шестизначных чисел. 
На низком уровне сложности увеличение результата может проис¬ 
ходить на 1000—10000 баллов, на высоком — на 1 — 10 баллов. 
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9.8. Игры пошаговые и реального времени 

Пошаговые игры являются более традиционными среди 
компьютерных игр, чем игры реального времени. Это связано 
с тем, что периферийное оборудование первых компьютеров 
не позволяло играть в такие игры. Первые терминалы к 
компьютерам были сделаны в виде пишущей машинки, т.е. могли 
давать отображение игровой ситуации только на бумаге. Кроме 
того, компьютеры долгое время рассматривались как инструмент 
для автоматизации интеллектуальных действий, которые демон¬ 
стрировались обычно на примере таких пошаговых игр, как 
шахматы. 

Пошаговые игры программируются проще, чем игры реального 
времени. В них не требуется быстрой реакции на действия пользо¬ 
вателя (или его бездействие). Поэтому программы могут быть 
написаны без использования специальных приемов по ускорению 
их работы. Конечно, это не относится к программированию 
антагонистических игр с участием компьютера, для которых 
неизвестен эффективный алгоритм выигрыша. Здесь, наоборот, 
используются специальные приемы, для того чтобы компьютер 
успел рассчитать правильный ход за приемлемое время. Таким об¬ 
разом, наиболее простыми для программирования являются, 
видимо, пошаговые игры без участия компьютера. 

9.9. Компьютер — соперник 

Компьютер может участвовать в игре, играя за одного или не¬ 
скольких игроков. В этих случаях перед программистом встает 
проблема, как запрограммировать игру компьютера, как вы¬ 
брать стратегию, которой он должен придерживаться. 

Упомянем четыре наиболее употребительных способа програм¬ 
мирования компьютера. 

I. Оптимальная стратегия, т.е. стратегия, ведущая к победе 
или, если таковая невозможна, к минимальному проигрышу. 
І'стостнснно, что такую стратегию можно реализовать только для 
тех игр, для которых она известна и вычислима за приемлемое 
и|юми. Примеры: игра Баше, ”Волк и овцы”, ”Ним”. 

И<ч>и Ііішіс. Имеется 15 предметов. Соперники ходят по очере¬ 
ди, та каждый ход любой из играющих может взять 1,2 или 3 
и род мети. Проигрывает тот, кто вынужден взять последний пред¬ 
мет, При правильной игре побеждает тот, кто ходит первым. 

"Ммк и он цы ". Игра ведется на шахматной доске. В началь¬ 
ной сиіуяции четыре овцы стоит па черных клетках первой гори- 
тоіпяли, а волк па любой черной клетке третьей горизонтали. 
Овцы могут ходить только по диагонали и только вперед на одну 

89 



клетку. Волк также ходит по диагонали и только на одну клетку, 
но во всех направлениях. Цель овец создать такое положение, ког¬ 
да волку некуда ходить. Цель волка зайти овцам за спину. При 
правильной игре побеждают овцы. 

” Ним ”. Играть в ”Ним” начинают с трех кучек каких-либо 
предметов. Ход игрока состоит в удалении произвольного числа 
предметов только из одной кучки. Игроки ходят по очереди до 
тех пор, пока не уберут все предметы. Игрок, сделавший послед¬ 
ний ход, выигрывает. Кто из игроков победит при правильной 
игре — зависит от начальной ситуации (см. разд. 3.9). 

2. Перебор вариантов. Компьютер перебирает возможные вари¬ 
анты продолжения игры и выбирает лучший. Такая стратегия 
плохо себя проявляет в играх с большим числом вариантов, кото¬ 
рые компьютер не может перебрать за разумное время. Однако 
теоретически этот способ игры компьютера довольно хорошо 
разработан, и основанные на нем, например, шахматные програм¬ 
мы играют весьма неплохо. Сила переборных программ определя¬ 
ется тем, на сколько ходов вперед такая программа может про¬ 
считать варианты. 

3. Перебор с применением эвристик. При переборе вариантов 
ходов используются некоторые соображения (эвристики), специ¬ 
фические для данной игры, позволяющие отбросить заведомо 
"плохие” ходы и выбрать "хорошие”. Проблема в том, чтобы при¬ 
думать эвристики. Иногда это удается. 

4. Вероятностная стратегия. Компьютер случайным образом 
выбирает очередной ход из нескольких возможных. Эта страте¬ 
гия наиболее проста в реализации и часто отнюдь не самая пло¬ 
хая, особенно в играх реального времени, где человеку не всегда 
удается найти лучший ход в условиях временных ограничений. 
Эта стратегия оправдывает себя и в тех играх, где число допусти¬ 
мых ходов невелико и вероятность выбора оптимального хода 
при случайной стратегии довольно высока. 

Только одна из этих стратегий — первая — употребляется в чис¬ 
том виде. Остальные же, как правило, комбинируются друг с дру¬ 
гом. Например, вероятностную стратегию можно сочетать с 
использованием эвристик. Если некоторая эвристика применима 
в данной ситуации, то компьютер делает ход в соответствии с 
эвристикой, иначе ход выбирается случайным образом. 

Интересным оказался наш опыт использования вероятностной 
стратегии в игре "Реверси” (автор программы А.Б.Борковский). 
Для игры в ’Теверси” было реализовано две игровых программы: 
одна — с вероятностной стратегией и другая — с йспользованием 
эвристик. Оказалось, что с вероятностной игровой программой 
в среднем играть интереснее, так как иногда она делает довольно 
неожиданные и очень эффективные ходы. Сказалось то, что число 
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допустимых ходов в игре невелико, а иногда даже бывает равно 
нулю (право хода передается противнику). Поэтому вероятность 
выбора хорошего хода довольно высока. В то же время "эвристи- 
ческая” программа играла на довольно среднем уровне беэ каких- 
либо неожиданных отклонений — вероятно, не слишком удачны¬ 
ми были эвристики. 

” Реверси ”. Игра проходит на доске 8X8 с использованием 64 
фишек, окрашенных с одной стороны в белый, а с другой — в чер¬ 
ный цвет. В начале игры в центр доски помещаются четыре фиш¬ 
ки : две — белым цветом вверх и две — черным. Противники по 
очереди выставляют фишки своего цвета, и каждый ход делается 
только тогда, когда можно определенным образом окаймить 
(окружить) одну или несколько фишек противника. Все неприя¬ 
тельские фишки, попавшие в окружение, переворачиваются (пере¬ 
ходят противнику). Если один из партнеров не может окружить 
неприятельские фишки, то он пропускает ход-Если и у второго 
игрока нет хода или если нет свободных полей, то партия закан¬ 
чивается. Чьих фишек на доске больше — белых или черных, — 
тот и выигрывает. 

Программирование интеллектуальных игр (типа шахмат) — 
весьма трудоемкая операция,если неизвестна оптимальная страте¬ 
гия. Например, шахматная программа "Пионер” писалась груп¬ 
пой программистов под руководством экс-чемпиона мира, между¬ 
народного гроссмейстера М.М.Ботвинника начиная с 1972 г., но 
до сих пор авторы не считают работу над ней законченной [3]. 


9.10. Компьютер — "творецвселенной" 

Первое время наиболее популярными были игры, в которых 
компьютер выступал в качестве одного иэ участников. Однако 
игры такого рода достаточно сложны в программировании. Ведь 
в этом случае желательно, чтобы компьютер был достойным 
соперником человеку, и не только проигрывал, но иногда и вы¬ 
игрывал (см. разд. 9.9). 

Более широкое распространение получили другие игры — игры 
с одним участником, который борется ... сам с собой, а точнее с 
теми трудностями, которые ему встречаются в игрушечном мире, 
созданном компьютером. В этих играх компьютер лишь создает 
ситуацию, а человек должен преодолеть возникающие препятст¬ 
вия, чтобы добиться поставленной перед ним цели. Программи¬ 
рование таких игр сводится к чисто техническим проблемам и 
для квалифицированных программистов не представляет серьез¬ 
ных проблем. (Сравните с программированием игры в шахматы.) 
В то же время изобретение каких-либо эвристик требует проник- 
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новения в суть игры, ее глубокого изучения, а переборные страте¬ 
гии на микрокомпьютерах с невысокой производительностью 
требуют больших затрат времени для расчета правильного 
поведения. 

Обычные игры, как правило, подразумевают конкуренцию 
между участниками или группами участников .называемых сопер¬ 
никами. В играх с одним участником очная конкуренция может 
бьпь заменена заочной. В наиболее развитых вариантах таких 
игр, как правило, вычисляется оценка мастерства игрока и, воз¬ 
можно, запоминаются имена лиц, набравших наивысшие оценки. 
Таким образом, в отсутствие прямых конкурентов игрок полу¬ 
чает возможность бороться с таблицей рекордов своих товарищей. 

Развитие игровых программ не только привело к созданию 
новых игр (в основном реального времени), но и возродило к 
новой жизни старые игры. 

Например,в ’Теверси” гораздо приятнее играть на компьютере. 
Компьютер точно скажет,есть ли у игрока ходы или нет,проверит 
правильность хода, изменит положение на доске, не забыв ни 
одной фишки, и подсчитает текущее соотношение фишек сопер¬ 
ников, 

В игре ”Лото” (реализованной А.А. Чижовым, В.Г. Абрамо¬ 
вым, Г.В. Сениным) компьютер производит подсчет очков по 
непростым формулам, оставляя на долю игроков лишь один вид 
деятельности — выбор хода, что значительно упрощает процесс 
игры и делает ее интереснее и азартнее. 

” Лото ”. Каждый из игроков бросает кости. Если выпадает одна 
из известных комбинаций, то игрок получает определенное коли¬ 
чество очков и может бросить кости еще раз. Другая возмож¬ 
ность — передать ход соперникам, а набранные за последний ход 
очки записать в свой актив. Если во время очередного броска на 
костях не выпадает ни одной из комбинаций, то все очки,набран¬ 
ные игроком в этой серии бросков, пропадают и ход переходит 
к соперникам. Цель игры: быстрее всех записать в свой актив 
1000 очков. На пути к этой цели есть препятствия: при обгоне 
одного игрока другим обгоняющий переписывает в свой актив 
часть очков обгоняемого. Кроме того, имеются два "барьера”, 
для преодоления которых необходимо за один ход набрать не 
менее 100 очков. 

При игре в "длинные нарды” (реализация Г.В. Сенина) ком¬ 
пьютер не только показывает варианты возможных ходов и кон¬ 
тролирует их правильность, но и ведет статистику, по которой 
можно судить, кому больше "везло” и насколько удачно тот или 
иной игрок провел партию. В обычных условиях для ведения 
такой статистики необходимы значительные усилия, не говоря 
уже о неизбежном замедлении самого процесса игры. 

92 



Новые черты приобретает на компьютере разыгрывание шах¬ 
матных блиц-партий, реализованного в составе системы ”Дебют” 
А.К. Дудоладовым. Компьютер не только ведет контроль вре¬ 
мени и фиксирует завершение партии, но и записывает ее текст, 
что в условиях блица иногда бывает затруднительно. И для 
игроков, и для болельщиков это довольно удобно. Разумеется, не 
падают и фигуры, что зачастую случается при игре за реальной 
доской. 

Незаменим компьютер в играх реального времени. Благодаря 
ему можно создавать игры, которые другими средствами реали¬ 
зовать гораздо сложнее. Компьютер позволяет изменять такие 
параметры, как, например, скорость передвижения управляемых 
объектов. Любопытная метаморфоза произошла с игрой ”Не пере¬ 
секай” (см. разд. 4.2) , после того как была увеличена скорость 
управляемых объектов. На меньшей скорости это была в какой- 
то мере интеллектуальная игра реального времени. От игроков 
требовалось сообразить, как лучше обмануть соперника. После 
увеличения скорости игра превратилась в психологическую. Вы¬ 
игрывал тот, кто мог предугадать действия соперника еще до 
начала партии, потому что игроки успевали сделать лишь два-три, 
максимум четыре поворота до столкновения. Интересная задача — 
научить компьютер играть за одного из участников нами не реша¬ 
лась. Учитывая тот факт, что в этой игре время реакции на дей¬ 
ствия соперника имеет немаловажное, а порой и решающее значе¬ 
ние, и то, что иногда неожиданный маневр приводит к победе 
благодаря замешательству противника, можно предположить, что 
компьютер в этой игре будет уступать человеку. 

9.11. Зачем нужны компьютерные игры 

Чтобы оценить значение игр в человеческом обществе, попро¬ 
буйте представить себе детей, которые ни во что не играют. Труд¬ 
но, не правда ли? Вопрос: зачем игры человеку — имеет столь же 
древний ответ, как и сами игры: игры нужны, чтобы учиться. 
Современные психологи считают, что игровая обстановка являет¬ 
ся наилучшей для обучения практически любому виду деятель¬ 
ности . 

С самого раннего детства человека окружают игрушки. На сме¬ 
ну им приходят подвижные, ”тихие”,интеллектуальные,спортив¬ 
ные игры. Из "арсенала” общества одни игры исчезают, другие 
возникают. Исчезла детская игра ”в бабки”, зато появились 

кубики Рубика, пирамидки и пр. Компьютеры внесли кое. 

новое в этот процесс игрового творчества, а также •іначшелыю 
ускорили его. 

Создатель новой некомпьютерной игры в своем інорчегіие 
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связан законами материального мира. Создатель же компьютер¬ 
ной игры этими законами не связан, ему достаточно уметь про¬ 
граммировать. Очень часто компьютерные игры оказываются 
интереснее, потому что их действующие лица могут вести себя 
гораздо хитрее, чем те неодушевленные материальные объекты, 
с которыми мы сталкиваемся в традиционных играх. Потому и 
появляются компьютерные развлечения в таком изобилии. 
Плохие игры забываются, хорошие — остаются. 

Широкое внедрение компьютерной техники почти во все сферы 
производственной деятельности требует, чтобы практически лю¬ 
бой человек умел общаться с компьютером. С этой точки зрения 
игры являются незаменимым подспорьем. Один час увлекатель¬ 
ной, правильно подобранной игры даст человеку гораздо больше 
информации о возможностях компьютера, чем недельное штуди¬ 
рование руководств и инструкций. 

Хорошую игру, которая станет любимицей миллионов людей 
на многие годы, придумать чрезвычайно сложно. Придумывание 
игр — особый вид творчества, а хорошие игры — это, пожалуй, 
своего рода произведения искусства. Они не только учат тому, 
какие нажимать клавиши и как рассчитать правильный ход, но 
оказывают и сильное эмоциональное воздействие на человека. 

Нам кажется, что дальнейшее развитие науки и техники сдела¬ 
ет невозможным обучение наших детей без компьютерных игр. 
Значит, то, чему они будут учиться, немного зависит и от того, 
в какие игры будет играть компьютер. 

ГЛАВА 10 

ЛИСТИНГИ ПРОГРАММ 

Листинг 1 

10 КЕМ Колодец 

20 КЕМ ІВМ РС ВАЗІСА 

25 КЕМ Автор - Г.Гнеэдилова 

30 ЗСКЕЕН Ь КЕУ ОРР: СЕЗ 

40 Х=160: Ѵ=100 координаты центра фигуры 

45 КЕМ Строим тридцать вложенных квадратов 

50 РОК 1=1 ТО 30 

60 ХЕ=Х-І*3: УЕ=У-І*3 

70 ХК=Х+І*3: ѴК=Ѵ+І*3 

80 ЬШЕ (ХЬ,УЬНХК.УКЦВ 

90 ИЕХТ 


Листинг 2 

10 КЕМ Кораблик 
20 КЕМ ІВМ РС ВАЗІСА 
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25 КЕМ Автор - ГТнеэдилова 
30 5СКЕЕК Ь КЕУ ОРР: СЕ5 
40 СОЬОК 1,1 

50 ЕІИЕ (80Д50Н220Д50),]; ЫИЕ -(200Д75)Д 'рисуем 

60 ЬШЕ Ч100Д75)Д ЕШЕ -(80,150X1 'ледку 

70 ЬШЕ (160,50Н160Д45),3 'рисуем 

80 ГЛИЕ —(90Д45)^3: ЕШЕ -{160,50X3 'гарус 

90 ЕШЕ (140,30) -060,30X2: ЕШЕ -(160,45X2 'рисуем 

100 ЕШЕ -(140,45X2: ЫЫЕ -(150,37),2 'флаг 

110 ЕШЕ -{140,30),2 

120 РАШТ (155,35X212 Закрашиваем флаг 
130 РАШТ (140Д10ХЗ.З Закрашиваем гарус 
140 РАШТ (180Д60Х1Д Закрашиваем ледку 

Листинг 3 


10 КЕМ Смесь 
20 КЕМ ІВМ РС ВАЗІСА 
25 КЕМ Автор - Г.Гнеэдилова 
30 5СКЕЕИ Ь КЕУ ОРР: СЕ8 

35 КЕМ Строим двадцать отрезков и окружностей 
40 РОК 1=1 ТО 20 

45 Х1=320*КШ(1) У1=200*КЩ1Х Х2=320*КШ(1Х У2=200*КЩ1) 
50 ЕШЕ (Х1.У1) - (ХаУ2), ШТ(3*КЩ1))И 
60 СІКСЬЕ (320*КЩ1Х 200*К№(1)Х 100*КШ1), ШТ(3*КЩ1)Н 
70 ИЕХТ 


Листинг 4 


10 КЕМ Конфетти 

20 КЕМ ІВМ РС ВАЗІСА 

25 КЕМ Автор - ГТнеэдилова 

30 ИЮТН 80: ЗСКЕЕИ 0: КЕУ ОРР: СЬЗ 

35 КЕМ Выводим на экран 1000 символов 

40 РОК 1=1 ТО 1000 

50 С=ІМТ(КЩ1)*16) 

60 Х=ШТ(КМЕ)(1)*79)П 
70 Ѵ=ШТ(КЩ1)*23И 
80 А$=СНК$(ШТ(КЩ1)*224 Н32) 

90 ЬОСАТЕ У,Х 
100 СОЕОК С,О 
110 РКШТ А$ 

120 ИЕХТ 


Листинг 5 


10 КЕМ Калейдоскоп 
20 КЕМ ІВМ РС ВАЗІСА 
25 КЕМ Автор - ГТнеэдилова 
30 5СКЕЕИ 1: КЕУ ОРР: СЕЗ 
35 КЕМ Строим 4*1500 точек 
40 РОК 1=1 ТО 1500 
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50 Х=ШТ(160*КЩ1)) 

60 ѵ=шт(:юо*кщі)) 

70 Р8ЕТ(Х,У),2 'на экране появилась точка 

75 КЕМ Следующие 3 точки получены ее отражением 

80 Р8ЕТ(319-Х,У),2 

90 Р8ЕТ(319-Х.199-У),2 

100 Р8ЕТ(Х,199-Ѵ),2 

Ш ЫЕХТ 


Листинг 6 


10 КЕМ Павлин 
20 КЕМ ІВМ РС ВА8ІСА 
25 КЕМ Автор ~ Г.Гнеэдилова 
30 8СКЕЕК 1; КЕУ ОРР: СІ,8 
40 РОК Х1=0 ТО 319 
50 Х2=120+100*8ЩХ1/30) 

60 Ѵ2= 90+100*С08(Х1/30) 

70 ЫКЕ(Х1,100НХ2,Ѵ2) 

80 ИЕХТ 


Листинг- 7 


10 КЕМ Кружева 
20 КЕМ ІВМ РС ВА8ІСА 
25 КЕМ Автор - Г.Гнеэдилова 
30 8СКЕЕК 1: КЕУ ОРР: СЬ8 

40 N=18 'число вершин правильного многоугольника 
50 ОРТІОН ВА8Е 1 

60 ОІМ Х(Ы), У(Ы) координаты вершин многоугольника 
70 К=99 радиус описанной окружности 
80 07=2*3.3416/Ы 
90 Т=0 

95 КЕМ Вычисление координат вершин многоугольника 
100 РОК 1=1 ТО N 
110 Т=Т+0Т 

120 Х(І)=160+К*С08(Т): У(І)=100~К*8Ш(Т) 

130 ИЕХТ 

135 КЕМ Соединение вершин многоугольника 

140 РОК 1=1 ТО N-1 

150 РОК .1=1+1 ТО N 

160 ЬШЕ (Х(І>У(І)НХ{ 1X Ѵ( 1)) 

170 ИЕХТ 
180 МЕХТ 


Листинг 8 

10 КЕМ Убегающий квадрат 
20 КЕМ ІВМ РС ВА8ІСА 
25 КЕМ Автор - Г.Гнеэдилова 
30 ОІМ Х(3),У(3),Х0(3),У0(3) 

40 8СКЕЕН 1: КЕУ ОРР: СЕЗ 
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50 К=100 [длина стороны внешнего квадрата 
60 ХЬ=100: УІІ=50 координаты его левого верхнего угла 
70 N=30 'число квадратов на рисунке 
80 Х(0 ЬХТу. Х(1)=ХЬ+К: Х(2)=ХЬ+К: Х(3)=ХЬ 
90 У(0>=У11+К: У(1>=У11+К: Ѵ(2)=ѴЦ: У(3)=Ѵ1І 
100 5М1М08: кміы-змч 
105 КЕМ Строим N квадратов 
[110 РОК 1=1 ТО N 

1115 КЕМ Вычисляем координаты вершин очередного квадрата 
*120 РОК .1=0 ТО 3 

130 Х0(Л)=КМ11*Х(.1К5МІІ*Х((.М) той 4) 

140 У0(Л>=КМ11*У(.1)ь5М11*У((.1+1) той 4) 

150 МЕХТ 

155 КЕМ Строим очередной квадрат 
160 РОК .1=0 ТО 3 

170 ЫИЕ (Х{ ЛІУ( Л))-(Х(( І+1)Ш о (І 4\ У((Л+1)то(і 4)) 

180 ИР.ХТ 

190 РОК .1=0 ТО 3 

200 Х(Л)=Х0(Л) 

210 У(Л)=У[ХЛ) 

220 ИЕХТ 
230 ХЕХТ 


Листинг 9 


1 КЕМ Геометрический узор 

2 КЕМ ГВМ РС ВАЗІСА 

3 КЕМ Автор - Г.Гнеэдилова 

5 ОІМ Х(3),Ѵ(3)ДО(3).У0(3) 

6 ЗСКЕЕК 1: КЕУ ОГР: СЬЗ 

7 К=60: ХЬ=10: Ѵ1М7 

8 КЕМ Рисуем две строки по три узора в каждой 
10 РОК К=1 ТО 2 

15 РОК Ь=1 ТО 3 

16 Х(0(=ХЬ: Х(1)=ХІ4+К: Х(2)=ХЕ+К: Х(3>=ХЬ 

18 КЕМ Определяем направление вращения 

20 ІР К М00 2 = О АИО Ь МОР 2 = 0 ТНЕИ 28 

21 ІР К МОИ 2 = 1 АМИ Ь МОР 2 = 1 ТНЕ\ 28 

26 У(0)=У1І+К: У(1)=Уи+К; У(2)=Ѵ11: У(3)=УИ 

27 СОТО 40 

28 У(0ЬУИ: У(1)=УО; У(2)=Ѵ11+К: У(3(=УЦ+К 
40 ЗМ11=08: КМ1И-5М11 

45 КЕМ Вращаем квадрат 
50 РОК 1=1 ТО 21 
60 РОК .1=0 ТО 3 

70 ХГХЛ)=КМи*Х(Лк5МІІ*Х((Л+1) тоа 4) 
во У0(л)=Еми*У(лкзмц»у((л+і) тоа 4) 

90 ХЕХТ 

НО РОК .1=0 ТО 3 

120 ЬШЕ (Х(Л),У(Л)НХ((Л+1) шоа 4). У((Л+1) тоа 4)) 
130 ИЕХТ 



150 РОК ^=0 ТО 3 

160 хр)=хі)(.7) 

170 УРЬУБР) 

180 ИЕХТ 
190 ИЕХТ 
200 ХЬ=ХЬ+К 
210 ИЕХТ 

220 ХЬ=Ю: УІ^УЦ+К 
230 ИЕХТ 


Листинг 10 


10 КЕМ Жизнь 

20 КЕМ ІВМ РС ВА5ІС 

30 КЕМ Ьу Ьее Л.Д ВеесЬ 0, Ьее Т.0 

35 КЕМ Адаптация - ГГнеэдилова 

40 ОГМ А(161 В(30,30) 

45 КЕМ Задание числа анализируемых поколений 
50 РКШТ "Задайте количество поколений' 

60 ШРІІТ О 

70 ІР (0-1)*(С-100)>0 ТНЕЫ 90 
80 ІР ШТ(С)=С ТНЕИ 110 

90 РКШТ "Число должно бьпъ в диапазоне от 1 до 100" 

100 СОТО 50 

115 КЕМ Начальные присваивания 

110 РОК 1=1 ТО 30: РОК Л=1 ТО 30: В(ЫН>: МЕХТ Л: ИЕХТ I 
120 РОК 1=1 ТО 16: КЕАО А(І): №ХТ 

ізо РАТА юді-юд-ии-і-и-],-! 

135 КЕМ Размещение клеток исходной колонии 

140 РКШТ "Задайте координаты клеток исходной колонии." 

150 РКШТ "Ввод завершите заданием любой точки," 

155 РКШТ "координаты которой выходят из диапазона 1-30' 
160 ШРІГГ Х,У 

170 ІР (Х-30)*(Х-1) >0 ТНЕЫ 240 
180 ІР (У-30)*(У-1) >0 ТНЁЫ 240 
190 ІР ШТ(Х)ѵШТ(У)=Х+У ТНЕИ 220 

200 РКШТ "Координаты должны бьпъ целыми числами" 

210 СОТО 160 
220 ЬЕТ В(31-Ѵ, Х)=3 
230 СОТО 160 

235 КЕМ Определение следующего поколения 

240 РОК К=0 ТО С 

250 РОК Х=1 ТО 30 

260 РОК У=1 ТО 30 

2?0 ІР В(Х,Ѵ) <10 ТНЕИ 340 

280 РОК 2=1 ТО 15 5ТЕР 2 

290 ЬЕТ Х1=Х+А(2) 

300 ЬЕТ У1=Ѵ+А(2+1) 

310 ІР Х1*(Х1-31)*У1*(У1-31)=0 ТНЕИ 330 
320 ЬЕТ В(Х1,У1)=В(Х1,У1)*4 
330 ИЕХТ 2 
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340 ИЕХТ У 
350 ИЕХТ X 
360 ЬЕТ С=0 
370 РОЕ Х=1 ТО 30 
380 РОЕ Ѵ=1 ТО 30 
390 ЬЕТ ^=В^X,V) 

400 ІР СЫЗ)%Ы2)*(.І-3) о 0 ТНЕИ 470 

410 ЬЕТ В(Х,ѴН0 

420 ЬЕТ С=С+1 

430 ЬЕТ Ь=Х 

440 ІР ОІ ТНЕЫ 480 

450 ЬЕТ 0=Х 

460 СОТО 480 

470 ЬЕТ В(Х,Ѵ) =0 

480 ИЕХТ У 

490 ИЕХТ X 

495 ЕЕМ Отображение очередного поколения на экране 
500 РКШТ "Поколение ";К,"Число клеток в поколении = С 
5Ю РЕЮТ 

520 ІР С=0 ТНЕМ 640 
530 РОЕ Х=Р ТО Ь 
540 РОЕ Ѵ=1 ТО 30 
550 ІР В(Х,У) = О ТНЕМ 570 
560 РВШТ ТАВ(УѴ'*”: 

570 ЕЕХТ У 
580 РКШТ 
590 МЕХТ X 
600 РКШТ 

610 ІР 03 ТНЕЫ 630 
620 ЬЕТ С=К+2 
630 МЕХТ К 

640 РЕШТ "Игра завершена" 

650 ЕГО 


Листинг 11 


10 ЕЕМ Круги на веде 

15 ЕЕМ ІВМ РС ВАЗІСА 

16 ЕЕМ Автор - Г.Гнеэдилова 
20 5СЕЕЕМ 1: КЕУ ОРР: СЬЗ 

25 РОЕ ТО 3 'изменение цвета окружностей 

30 РОК К=10 ТО 70 ЗТЕР 5 'изменение радиусов окружностей 

40 СІЕСЬЕ(128,96),К,Л 

50 ГОХТ 

60 ГОХТ 


Листинг 12 


1 КЕМ Летящий самолет 

5 КЕМ ІВМ РС ВАЗІСА 

6 ЕЕМ Автор - ГТнеэдилова 
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10 ЗСЕЕЕИ Ь КЕУ ОРР: СЕЗ 

20 Х=0: У=160 'точка, в которой появляется самолет 
30 РОЕ 1=0 ТО 160 
40 Р5ЕТ(Х,Ѵ)Д 

50 РОЕ Э=1 ТО 40: ИЕХТ 'временная задержка 
60 Р5ЕТ(Х,Ѵ),0 
65 Х=Х+2: У=У-1 
70 ЫЕХТ 


Листинг 13 


10 ЕЕМ Блуждающая звезда 
20 ЕЕМ ІВМ РС ВАЗІСА 
25 ЕЕМ Автор - Г.Гнеэдилова 
30 ЗСЕЕЕЫ Ъ КЕУ ОРР: СЬЗ 
40 СОЬОЕ 9,0 
50 РОЕ 1=1 ТО 500 

60 Х=ШТ(ЕЩ1)*319) 'координаты левой верхней 
70 У=ШТ(ЕШ(1)*199) 'точки звезды 
80 РЗЕТ (Х,У),2 РЗЕТ (Х+1.У+Д2 высвечиваем четыре 
90 РЗЕТ (X, У+Ц2 РЗЕТ (Х+Ш2 'соседних точки 
100 РЗЕТ (Х,У),0: РЗЕТ (Х+1,У+1),0 (стираем четыре 
ПО РЗЕТ (Х+1, ПО: РЗЕТ (Х,Ѵ+1),0 (соседних точки 
120 ИЕХТ 


Листинг 14 


10 ЕЕМ Прыгающий НЛЭ 

20 ЕЕМ ІВМ РС ВАЗІСА 

25 ЕЕМ Автор - Г.Гнеэдилова 

30 ЗСЕЕЕИ 0: СОЕОЕ 7,0: ИЮТН 80: СЕЗ: КЕУ ОРР 

40 РОЕ 1=1 ТО 100 'цикл для смены цвета НЛО 

50 Х=ШТ(ЕШ(1)*74)4-1 координаты левого верхнего 

60 У=ШТ(ЕЩ1)*20Н1 (символа НЛО 

70 СОЕОЕ I МОБ 16,0 'новый цвет НЛО 

80 ЕОСАТЕ У,Х: РЕШТ Л Л 'рисуем НЛЭ 

90 ЕОСАТЕ Ѵ+1Д: РЕШТ "=="; 

100 ЕОСАТЕ Ѵ+2.Х: РЕШТ 7 \”; 

ПО ІР X МОР 12 = О ТНЕИ ВЕЕР 'звуковой сигнал 
120 РОЕ 2=0 ТО 100: ИЕХТ временная задержка 
130 СОЕОЕ 0,0 

140 ЕОСАТЕ У,Х: РЕШТ " (стираем НЛО 
150 ЕОСАТЕ У+ЕХ: РЕШТ ” 

160 ЕОСАТЕ Ѵ+2,Х: РЕШТ " 

170 ЫЕХТ 
180 СОЕОЕ 7,0 

Листинг 15 

10 ЕЕМ Танцующий НЛЭ - 1 
20 ЕЕМ ІВМ РС ВАЗІСА 
25 ЕЕМ Автор - Г.Гнеэдилова 


100 



30 ЗСКЕЕИ 1 КЕУ ОРР: СЬЗ 
35 СОЬОК 1,0 
40 ОІМ ЦР0(20) 

45 КЕМ Строим ЮД закодированный в строке 350 
50 У=0 

60 РОК 1=1 ТО 8 

70 КЕАО А 

80 РОК Л=1 ТО 2 

90 Х=15: А1=А 

100 РОК К=1 ТО 8 

ДО В=А1 МОЭ 2: А1=А1\2 

120 ІР В=1 ТНЕН Р5ЕТ (Х/У* Р5ЕТ (Х-1.У) 

130 Х=Х-2 
140 ИЕХТ К 
150 У=У+1 
160 ИЕХТ ^ 

170 иехт і 

180 СЕТ(0,ОНі5.15иіРО 

185 КЕМ Управляем перемещением НЛО 

190 СЬЗ 

200 Х=100: У=100 

210 5=гат(КМ0(1)*80) расстояние перемещения 

220 0=ШТ(КМ0(1)*4) 'направление перемещения 

230 ІР 0=0 ТНЕИ ѴХ=0: ѴУ=-1 'вверх 

240 ІР 0=1 ТНЕИ ѴХ=1 ѴУ=0 'вправо 

250 ІР 0=2 ТНЕИ ѴХ=0: ѴУ=1 Ьниз 

260 ІР 0=3 ТНЕИ ѴХ=-1: ѴѴ=0 'влево 

270 РОК 1=0 ТО 3 

280 РІТГ (ХДОРО: РЧТ (Х,У)ДРО 

290 Х=Х+ѴХ: У=У+ѴУ 

300 ІР Х>300 ОК Х<10 ТНЕИ ѴХ=-ѴХ НЛО не должен выходить 
310 ІР У>150 ОК У<Ю ТНЕИ ѴѴ=-ѴѴ 'за пределы экрана 
320 ИЕХТ I 
330 СОТО 210 

340 КЕМ закодированное изображение НЛО 

350 ОАТА &ЬЗс, &Ь7е, &Ь81, &Ь81, &МТ, &Ь7е, &Н24, &Ь42 

Листинг 16 


10 КЕМ Танцующий НЛЭ - 2 
20 КЕМ ВА5ІС-М8Х 
25 КЕМ (С) Зопу Согрогаііоп 
30 ЗСКЕЕИ 2 

40 КЕМ Закодированное изображение НЛО 

50 5РКІТЕ$(0)=СНК$(&ЬЗсКНК$(&Ь7е)Ц;НК$(&Ь81}г СНК$(&Ь81) + СНК$(&МТ) + 
СНК$(&Ь7е) + СНК$(&Ь24) + СНК$(&Ь42) 

55 КЕМ Управляем перемещением НЛО 
60 Х=100: У=Ю0 

70 5=ШТ(КШ(1)*80) расстояние перемещения 
80 0=ШТ(КЩ1)*4) 'направление перемещения 
90 ІР 0=0 ТНЕИ ѴХ=0; ѴѴ=-1 'вверх 
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100 ІР 0=1 ТНЕИ ѴХ=1 ѴѴ=0 'вправо 
110 ІР 0=2 ТНЕИ ѴХ=0: ѴѴ=1 'вниз 
120 ІР 0=3 ТНЕИ ѴХ=-1; ѴѴ=0 Ьлево 
130 РОК 1=0 ТО 5 
140 РІІТ ЗРКІТЕ 0,(Х,Уио 
150 Х=Х+ѴХ: У=У+ѴѴ 

160 ІР Х>240 ОК Х<0 ТНЕИ ѴХ=-ѴХ НЛО не должен выходить 
170 ІР У>175 ОК У<0 ТЛЕЮ ѴѴ=-ѴѴ 'за пределы экрана 
180 ИЕХТ I 
190 СОТО 70 


Листинг 17 


1 КЕМ Пять кривых 

2 КЕМ ІВМ РС ВАЗІСА 


3 КЕМ Автор - Г.Гнеэдилова 
5 КЕМ Выбор кривой 

10 РКШТ "Какую кривую вы хотите построить:" 


20 РКПТГ " 

30 РКШТ " 

40 РКШТ " 

50 РКШТ " 

60 РКШТ " 

65 РКШТ ” 

70 гарііт к 

75 ІР К<1 ОК К>6 ТНЕИ 10 
77 ІР К=6 ТНЕИ ЕЮ 
60 ВСРЕЕИ 1: КЕУ ОРР: СЬЗ 


1 - спираль Архимеда" 

2 - улитку Паскаля;" 
кардиовду;" 
трилистник;" 
четырех листник" 
выход." 


85 КЕМ Ввод параметра и построение кривой 
90 ШРІІТ "Задайте положительное число "; А 
100 ІР А<=0 ТНЕИ 90 
ПО 0РІ=1/А 

120 ОИ К еозив 205,305,405,505,605 
130 РОК РІ=0 ТО 6.28 ЗТЕР ОРІ 
140 ОИ К еозив 250,350,450,550,650 
150 Х2=10О+К*С03(РІ) 

160 У2=100-К*5Ш(РІ) 

170 ЫМЕ (Х1.У1ИХ2.У2) 

180 Х1=Х2 У1=У2 


190 ИЕХТ 

193 РОК 1=1 ТО 500: ИЕХТ 
195 СОТО 10 

200 КЕМ Спираль Архимеда 

205 Х1=100: У1=Ю0 

210 КЕТІЖИ 

250 К=А*РІ 

260 КЕТШШ 

300 КЕМ Улитка Паскаля 
305 Ь=А/2 Х1=100+А+Ь: У1=100 
310 КЕТШШ 
350 К=Ь+А*С08(РІ) 
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360 КЕТІШ 

400 КЕМ Кардиоида 

405 ВДОО+А*2 УНОО 

410 КЕТШШ 

450 КА*(1+С05(РІ)) 

460 КЕТОВИ 

500 КЕМ Трилистник 

505 ХНОО+А: УНОО 

510 КЕТШШ 

550 КА*С05(3*РІ) 

560 КЕТОШ 

600 КЕМ Четырехлистник 
605 ХНОО+А: УНОО 
610 КЕТОКИ 
650 КА*С05(2*РІ) 

660 КЕТОШ 
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10 КЕМ Фигуры Лиссажу 
20 КЕМ ІВМ РС ВА5ІС 
30 КЕМ (С) Сгеаііѵе СотриИгщ 
35 КЕМ Адаптация - ГТнеэдилова 
50 йім У(10) 

100 КЕМ Задание параметров фигуры Лиссажу 
110 Рв.1415926 

120 РКШТ "Частота колебаний по оси ОХ (число от 1 до 5У; 

122 ШРІІТ Р1 

125 ІР ШТ(Р1)Р1 ТНЕИ 120 

127 ІР РМ ТНЕІЯ 120 

128 РР1- Р12*Р*Р1 

130 РКШТ "Частота колебаний по оси ОУ (число, большее 1У; 

131 ШРІГГ Р2 

132 ІР ШТ(Р2УР2 ТНЕИ 130 

133 ІР Р2 < 1 ТНЕИ 130 

135 РКШТ "Начальная фаза колебаний по оси ОУ'; 

136 ШРІІТ Р2 Р2Р*Р2 
140 Р2Й*Р*Р2 

145 КЕМ Вычисление координат точек, принадлежащих фигуре 

150 РОК ХН-18 ТО 18 

160 Х4С1/16: созив 1970: ТН(: Т2Р-Х 

162 РОК М ТО Р-1 

165 ТЗ<Т1+2*І*Р)/Р1 ТФ(Т2+2*І*Р)/Р1 

170 У180*5ЩР2*ТЗ+Р2)! У230*5ІМ(Р2*Т4+Р2) 

180 У1«0М(Ѵ1)*ШТ(АВ5(У1}+.5): У280И(Ѵ2)*ШТ(АВ5(Ѵ2}+.5) 

190 У(2*І)У1- У(2*І+1)У2 
200 ИЕХТ I 

210 РОК М ТО 2*Р-1 НЫ ТУ(Л) 

220 ІР Т>=Ѵ(І) ТНЕИ 240 

230 У(Х+1)=УСІ)с 1=1-1 ІР І>=0 ТНЕІЯ 220 

240 ѵа+1)=Т: ЫЕХТ Л 



245 КЕМ Построение фигуры на экране 

250 РОК 1=0 ТО 2*Р-1 

260 ІР 1=0 ТНЕИ 280 

270 ІР У(І)=У(І-1) ТНЕІЯ 290 

280 РКШТ ТАВ(36+У(І));"*"; 

290 ИЕХТ I 
300 РКШТ 
310 ИЕХТ XI 
1890 Е(Ю 

1960 КЕМ Вспомогательная подпрограмма 
1970 ІР АВЗДКі ТНЕЮ 2020 
1980 Х=Х/(30К(1+Х>ѵ80К(1-Х)) 

1990 С0511В 1970 
2000 Х=2*Х 
2010 КЕТШШ 

2020 Х=Х+Х~3/6+.075*Х~5+Х~ 7/22.4 
2030 КЕТІЖМ 
2040 ЕШ 
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1 КЕМ Траектория спутника 

2 КЕМ ІВМ РС ВА5ІС 

3 КЕМ Ьу Ьее ,1.0., ВеесЬ 0.. Ьее Т.0. 

5 КЕМ Адаптация - Г.Гнеэдилова 

10 ОІМ В(20), Х(102Х УСЮ2) 

20 РКШТ ТАВ(5); 'Траектория спутника” 

30 РКШТ ТАВ(5)[ "===— ===’' 

40 РКШТ "Начальные координаты X и У спутника"; 

50 ШРОТ ХО, УО 

60 ІР АВ5(Х0КАВЗ(У0) >0 ТНЕИ 90 

70 РКШТ "Простите; но спутник должен быть над поверхностью." 

80 СОТО 40 

90 ЬЕТ Х(1)= ХО 

100 ЬЕТ Х1=ХО 

НО ЬЕТ Х2=ХО 

120 ЬЕТ У(1)=УО 

130 ЬЕТ У1=УО 

140 ЬЕТ У2=Ѵ0 

150 РКШТ "Начальные скорости спутника по оси ОХ и оси ОУ"; 
160 ШР11Т 51, 52 

170 ІР АВ8(81)»-АВЗ(82) > О ТНЕИ 200 

180 РКШТ "Начальная скорость должна быть отличной от нуля" 
190 СОТО 160 

200 РКШТ "Длительность пребывания спутника на орбите?'; 

210 ШРІІТ М 

220 РКШТ "Интервал, через который следует определять" 

225 РКШТ "координаты спутника"; 

230 ШРІІТ Т 

240 ІР М/Т <=100 ТНЕИ 270 

250 РКШТ "Количество точек, координаты которых потребуется" 
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255 РКШТ "определить, не должно превышать 100. Снова задайте" 

260 СОТО 200 

270 ЬЕТ Т1=Т/Ю 

280 ЬЕТ 1=2 

290 ЬЕТ Л=1 

300 РКШТ 

310 РКШТ 'Время",''х","у" 

320 РКШТ ”- 

330 РКШТ " 0";ТАВ(10);Х0;ТАВ(25);У0 

340 ЬЕТ Т2=0 

350 ЬЕТ Х=Х0 

360 ЬЕТ Ѵ=Ѵ0 

370 ЬЕТ Ѵ1=51 

380 ЬЕТ Ѵ2=82 

390 ЬЕТ С=0 

400 ЬЕТ І)=Т1 

410 ЬЕТ К1=5<5К(Х*Х+Ѵ*Ѵ) 

420 ЬЕТ К=К1*К1*К1 

430 ІР Т2>М ТНЕИ 700 

440 ЬЕТ Р1= -Х/К 

450 ЬЕТ Р2=-Ѵ/К 

460 ІР Т2Ю ТНЕМ 480 

470 ЬЕТ й=Т1/2 

480 ЬЕТ Ѵ1=Ѵ1+Р1*0 

490 ЬЕТ Ѵ2=Ѵ2+Р2*0 

500 ЬЕТ Х=Х+Ѵ1*Т1 

510 ЬЕТ Ѵ=У+Ѵ2*Т1 

520 ЬЕТ Т2=Т2+Т1 

530 ЬЕТ С=С+Т1 

540 ІР С<Т ТНЕИ 400 

550 РКШТ (І-1)*Т; ТАВ(10):Х:ТАВ(25)[Ѵ 

560 ЬЕТ Х(І)=Х 

570 ЬЕТ У(І)=У 

580 ЬЕТ 1=1+1 

590 ІР Х>=Х1 ТНЕІЯ 610 

800 ЬЕТ Х1=Х 

610 ІР У>=У1 ТНЕМ 630 

620 ЬЕТ У1=У 

630 ІР Х<=Х2 ТНЕІЯ 650 

640 ЬЕТ Х2=Х 

650 ІР У<=Ѵ2 ТНЕИ 670 

660 ЬЕТ У2=У 

670 ЬЕТ С=0 

680 СОТО 400 

690 КЕМ Масштабирование координат для 
695 КЕМ построения траектории на экране 
700 ЬЕТ Х(ІН> 

710 ЬЕТ У(ІЙ 
720 РОК Л=1 ТО I 
730 ЬЕТ Р=Х2-Х1 
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740 ЬЕТ 0=Ѵ2-Ѵ1 

750 ЬЕТ Х(1)= ШТй5+50*(Х(ЛЬХ1)/Р) 

760 ЬЕТ У(Л)=МТ(15+20»(У(ЛЬѴ1)/0) 

770 №ХТ 1 
780 РЕШТ 

790 КЕМ Сортировка координат 

800 РОЕ 1=1 ТО I 

810 ЬЕТ 8=0 

820 РОЕ К=2 ТО I 

630 ІР У(К}-Х(К)/100 < У(К-1ЬХ(К-1)/100 ТНЕК 910 
840 ЬЕТ 51=У(К) 

850 ЬЕТ 82=Х(К) 

860 ЬЕТ Ѵ(К)=Ѵ(К-1) 

870 ЬЕТ Х(К)=Х(К-1) 

880 ЬЕТ У(К-1)=31 

890 ЬЕТ Х(К-1)=52 

900 ЬЕТ 3=1 

910 №ХТ К 

920 ІР 5=0 ТНЕК 940 

930 ЯЕХТ 1 

940 РЕШТ 

950 РЕШТ ТАВСЮ); "Траектория спутника” 

960 РЕШТ ТАВ(10); "-" 

970 РЕШТ 

980 РЕШТ У2; ТАВ(16); ’Т'; 

990 ЬЕТ 1=1 
1000 ЬЕТ Т=0 
1010 ІР 1=1 ТНЕМ 1030 
1020 ЬЕТ Т=У(1-1)-У(1) 

1030 РОЕ Т1=1 ТО Т 
1040 РЕШТ 

1050 ІР УЦ)=1 ТНЕК 1080 
1060 РЕШТ ТАВ(16);Т; 

1070 СОТО 1090 

1080 РЕШТ VI; ТАВ(16); '7'; 

1090 ИЕХТ Т1 

1100 ІР У(1) О ШТ(15-20*У1/0) ТНЕК 1120 
ШО ІР Х(1) = ШТ(15-50*Х1/Р) ТНЕИ 1140 
1120 РЕШТ ТАВ(16+Х(1))[ 

ИЗО СОТО 1150 

1140 РЕШТ ТАВ(16+Х(1)); "Е"; 

1150 ІР 1=1 ТНЕК 1180 
1160 ЬЕТ 1=1+1 
1170 СОТО 1020 
1180 РЕШТ 

1190 ЬЕТ <}$=?’-" 

1200 РЕШТ ТА8(16);"—";0$;0$;0$;0$ 

1210 РЕШТ ТАВ(16);Х1;ТАВ(35);"Ось ОХ'; ТАВ(60);Х2 
1220 РЕШТ 

1230 РЕШТ "Будете играть еще раз (ДА/НЕТУ 
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1240 шрит 0$ 

1250 ІР 0$-'ДА" ТНЕИ 40 
1260 ІР ОЗ^ИЕТ" ТНЕИ 1290 

1270 РЕШТ 'Ответ ";0$; не понятен. Ответьте ДА или НЕТ." 
1280 СОТО 1240 
1290 ЕШ 
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100 КЕМ 

НО КЕМ * ПАУЧЬЯ ГРАФИКА * 

120 КЕМ 

140 КЕМ ВУ МІЬЫАМ К. ВАЬТНКОР 

150 КЕМ НОМЕ С0МР1)ТЕЕ МАСА2ШЕ 

160 НЕМ ІВМ РС ВА5ІСА 

170 КЕМ Адаптация - Г.Сенин 

190 КЕМ СЬ5:Ь0САТЕ 12Д2РКШТ "ПАУЧЬЯ ГРАФИКА" 

195 РОЕ Х=1 ТО 1000:ИЕХТ X: СЬЗ 
200 НЕМ 

210 КЕМ ИНИЦИАЛИЗАЦИЯ 
220 НЕМ 

240 МАСН=1 ВАРИАНТ ДЛЯ ПК ИБМ 
250 ЗСКЕЕИ 1 

260 СЬ5:Ь0САТЕ 3,3:РКШТ 'ВЫБЕРИТЕ УПРАВЛЕНИЕ:" 

262 ЬОСАТЕ 6,5: РНІИТ "1 ДЖОЙСТИК" 

264 ЬОСАТЕ 8,5: РКШТ "2 КЛАВИАТУРА - клавиши ’ЕЗОХ” 

266 ЬОСАТЕ 12.5 

270 А$=ШКЕУ$:ІР А$<"1" ОН А$>"2' ТИБЫ СОТО 270 

280 ІР=ѴАЦА$>КЕУ 0РР:РХ=140:РУ=84 

281 М00Е=2 0Х=140:0У=84:С Ь& С Ь=15: С О Ь=3 

285 А$="1" 

286 ЬОСАТЕ 5Д; РКІ111Т "ЧТОБЫ ВЫБРАТЬ ОПЕРАЦИЮ или РЕЖИМ РАБОТЫ," 

287 РЕШТ "НАЖМИТЕ СООТВЕТСТВУЮЩУЮ ЦИФРУ." 

290 ЬОСАТЕ 8.1: РЕШТ "ИСПОЛЬЗУЙТЕ КЛАВИШУ ВВОД" 

291 РКШГ'или КНОПКУ ДЖОЙСТИКА" 

292 РЕШТ "ЧТОБЫ ФИКСИРОВАТЬ ЛИНИЮ, " 

293 РЕШТ 'ДОСТАВИТЬ ТОЧКУ или НАРИСОВАТЬ ЛУЧ" 

295 ЬОСАТЕ 24.1;РКтаТ "ЧТОБЫ ПРОДОЛЖИТЬ, НАЖМИТЕ ВВОД"; 

300 А$=ШКЕѴ$:1Р А$=”" ТНЕИ 300 

310 ШМ С(10) 

320 РКЕЗЕТ СЬЦЛКДМ "С2 ВЬЕРСН":СЕТ (0,0Н2,2),С:СЬ8:А$="2' 

330 НЕМ 

340 НЕМ СПИСОК ОПЕРАЦИЙ И РЕЖИМОВ РАБОТЫ 
350 КЕМ 

360 еозте шо 

362 ЬОСАТЕ 221: РЕШТ "1 линии нет"; 

364 ЬОСАТЕ 2220:РКІ№Г "5. поставить точку"; 

366 ЬОСАТЕ 23,1: РКШТ "2 линия есть"; 
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368 ЬОСАТЕ 23,20: РКШТ "6. в начало отрезка"; 

370 ЬОСАТЕ 243; РКШТ "3. стирать лучи"; 

372 ЬОСАТЕ 24,20: РКШТ "7. изменить цвет"; 

374 ЬОСАТЕ 253; РКШТ "4. рисовать лучи"; 

376 ЬОСАТЕ 25,20:РКШТ "8. очистить экран”; 

380 СОТО 630 
390 КЕМ 

400 КЕМ ВВОД С КЛАВИАТУРЫ 
410 КЕМ 

420 ІР ІР=1 ТНЕИ СОТО 980 

430 СОЗОВ Ш0:РКТ (РХ,РѴХСДОК;РІ)Т (РХ,РѴХС,ХОК 

431 ІР А$-" ТНЕИ СОТО 430 

440 ІР А$<Т ОК А$>"8" ТНЕИ СОТО 450 

445 ОМ ѴАЬ(А$) СОТО 630,630,630,630,630,720,730,850 

450 А=А5С(А$)!ІР А=83 АШ РЗОО ТИБЫ МХ=-1:МѴ=0:00Т0 510 

460 ІР А=68 АШ РХ<317 ТНЕМ МХ=1:МѴ=0:е0Т0 510 

470 ІР А=69 А№ РУ>0 ТНЕИ МХ=0:МУ=-1:е0Т0 510 

480 ІР А=88 А№ РУСІ67 ТНЕИ МХ=0:МѴ=1'С0Т0 510 

490 ІР А=13 ТНЕИ ОЫ МООЕ СОТО 420,570,570,580,590 

500 СОТО 430 

510 ІР М00ЕО2 ТНЕИ 520 

512 ЬШЕ (0Х.0ѴНРХ.РП0 

5М РХ=РХ+МХ:РУ=РУ+МѴ:ЬШЕ (ОХ,ОѴНРХ,РѴ),СОЬ 

516 СОТО 420 

520 ІР МОЬЕОЗ ТИБЫ 530 

522 РХ=РХ+МХ: РУ=РУ+МѴ: ЬШЕ (0Х,0Ѵ)-(РХ,РУ),0 

524 СОТО 420 

530 РХ=РХ+МХ:РУ=РУ+МУ:00Т0 420 
540 КЕМ 

550 КЕМ РЕАКЦИЯ НА КЛАВИШУ ВВОД' В РАЗНЫХ РЕЖИМАХ 
560 КЕМ 

570 ОХ=РХ:ОУ=РУ:РКШТ СНК$(7);:С ОТО 420 

580 ЬШЕ (ОХ,ОѴНРХ,РУ),СОЬ:РХ=ОХ:РУ=ОУ:РКШТ СНК$(7);:СОТО 420 
590 Р5ЕТ (РХ+ЬРУ+ІЦСОЫСОТО 420 
600 КЕМ 

610 КЕМ ИЗМЕНЕНИЕ РЕЖИМА 
620 КЕМ 

630 М=М00Е:Р5ЕТ (319,199),20М ѴАЦА$) СОТО 640,850,660,670,680 

640 МООЕ=1;ЬОСАТЕ 22,4:РКШТ "ЛИНИИ НЕТ';С0Т0 890 

650 МООЕ=2:ЬОСАТЕ 23,4:РКШТ "ЛИНИЯ ЕСТЬ";:0Х=РХ:ОУ=РУ:СОТО 890 

660 МООЕ=3:ЬОСАТЕ 24,4:РКШТ 'СТИРАТЬ ЛУЧИ"; 

661 ОХ=РХ:ОУ=РУ:СОТО 890 

670 МООЕ=4:ЬОСАТЕ 25,4:РКШТ 'РИСОВАТЬ ЛУЧИ”; 

671 0Х=РХ:0У=РУ:00Т0 890 

680 МООЕ=5:ЬОСАТЕ 22,23:РКШТ "ПОСТАВИТЬ ТОЧКУ; СОТО 890 
690 КЕМ 

700 КЕМ ВЫПОЛНЕНИЕ ОПЕРАЦИЙ 
710 КЕМ 

720 РХ=0Х:РУ=0Ѵ:00Т0 420 
730 СОТО 810 
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810 БОСАТЕ 22,1 :РКІБТ "ПАЛИТРА О”; РКШТ 5РС(10); 

811 БОСАТЕ 22,20:РКІБТ "ПАЛИТРА 1"?РКІБТ ЗРС(Ю); 

812 БОСАТЕ 23,1 :РКШТ "1 ЗЕЛЕНЫЙ"?РКШТ 5РС(10); 

813 БОСАТЕ 23,20:РКІБТ "4. ГОЛУБОЙ"? РКШТ 8РС(10>, 

814 БОСАТЕ 24Д :РКШТ ”2. КРАСНЫЙ"?РКШТ ЗРСДО); 

815 БОСАТЕ 24,20:РКШТ ”5. ЛИЛОВЫЙ"? РКШТ 5РС(10); 

816 БОСАТЕ 25,1 РКШТ "3. ЖЕЛТЫЙ"? РКШТ 5РС(10); 

817 БОСАТЕ 25,20:РКШТ "6. БЕЛЫЙ’? РКШТ ЗРС(Ю); 

820 В$=ШКЕУ$ 

821 ІР В$="" ТНЕБ 820 ЕБЗЕ ІР В$<"1" ОК В$>"6” ТНЕБ СОТО 820 
830 СОБ=ѴАБ(В$>ІР СОБ<4 ТНЕБ РАБ=0 ЕБЗЕ РАБ=1С0Б=С0Б-3 
840 А$=5ТК$(МООЕ):СОТО 360 

850 СБ8:СОТО 360 
860 КЕМ 

870 КЕМ ВЫКЛЮЧИТЬ ПРЕДЫДУЩИЙ РЕЖИМ 
880 КЕМ 

890 РЗЕТ (319Д99Ц 

895 ІР М=МОБЕ ТНЕБ СОТО 420 ЕБЗЕ ОБ М СОТО 900,910,920,930,940 

900 БОСАТЕ 22,4: РКШТ "линии нет”;:00Т0 420 

910 БОСАТЕ 23,4: РКШТ "линия естъ"?ООТО 420 

920 БОСАТЕ 24,4: РКШТ "стирать лучи"?ООТО 420 

930 БОСАТЕ 25,4: РКШТ 'рисовать лучи”?СОТО 420 

940 БОСАТЕ 22,23:РКІБТ "поставить точку"? СОТО 420 

950 КЕМ 

960 КЕМ ОБРАБОТКА СИГНАЛА ОТ ДЖОЙСТИКА 
970 КЕМ 

980 РХ=5ТІСК(0)*2.5:РУ=5ТІСК(1)*13 
985 РБТ (РХ,РУ),С,ХОК:РБТ (РХ,РУ),С,Х0К 
990 ЗТКІС 0№РВ=ЗТКІС(1>ЗТКІС ОРР 

995 ІР РВ=-1 ТНЕБ ОБ МОБЕ СОТО 980, 1040, 1050, 1060, 1070 

юоо еозБв шо 

1005 ІР А$~" ОК А$<Т ОК А$>”8" ТНЕБ СОТО 980 

1006 ОБ ѴАБ(А$) СОТО 630,630,630,630,630,720,730,850 
1010 КЕМ 

1020 КЕМ РЕАКЦИЯ НА КНОПКУ ДЖОЙСТИКА 
1030 КЕМ 

1040 БШЕ (ОХ, 0Ѵ)-(РХ,РУ і С О Б:ОХ=РХ:ОУ= РУ:С ОТО 980 

1050 БШЕ (ОХ,ОѴНРХ,РУД):СОТО 980 

1060 БІБЕ (ОХ,ОУНРХ,РУЦСОБ:РХ=ОХ:РУ=ОУ:еоТО 980 

1070 РЗЕТ (РХ,РУ),СОБ:СОТО 980 

1080 КЕМ 

1090 КЕМ ПОДПРОГРАММА ПРИЕМА С КЛАВИАТУРЫ 
1100 КЕМ 

1110 А$=ІБКЕѴ$:КЕТБКБ 
1120 СОБОК 0,РАБ:КЕТБКБ 
ИЗО 5АѴЕ"5РЮЕК 


1 КЕМ Волшебный квадрат 

2 КЕМ ІВМ РС ВАЗІС 
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3 КЕМ (С) Сгеаііѵе Сотриіігщ 

4 КЕМ Адаптация - Г.Гнеэдилова 

5 РКШТ ТАВ(28); 'Волшебный квадрат' 1 

6 РКШТ ТАВ(28); "=== ===" 

10 РКШТ: РКШТ: РКШТ 

12 ОІМ А(91 В(9) 

20 КЕМ Правила игры 

25 РКШТ ’’ Игреки поочередно называют одно число от 1 до 9," 

30 РКШТ "выбирая его из тех чисел, которые не назывались " 

35 РКШТ "ранее а также указывают, в какую клетку " 

40 РКШТ "волшебного квадрата это число следует поместить." 

45 РКШТ "Цель игры - так заполнить квадрат, чтобы суммы" 

46 РКШТ "чисел, стоящих в каждой строкекаждом столбце" 

47 РКШТ "и на каждой диагонали были равны пятнадцати." 

49 РКШТ 

50 РКШТ " Проигрывает тот игрек, который первым делает" 

55 РКШТ "сумму чисел, стоящих в каком-либо столбце," 

60 РКШТ "в какой-либо строке или на одной из диагоналей," 

61 РКШТ "отличной от пятнадцати.” 

62 РКШТ 

65 РКШТ " Если в ходе игры удастся построить волшебный' 

66 РКШТ "квадрат - ничья." 

67 РКШТ 

70 РКШТ " В каждый ход Вы должны указать клетку волшебного" 
75 РКШТ "квадрата и число, которое следует разместить" 

80 РКШТ "в этой клетке. Так, например, если число 7 должно" 

81 РКШТ "занять третью клетку квадрата, Вы должны ввести" 

82 РКШТ "следующие два числа: 3, 7" 

85 РКШТ 

90 РКШТ " Вот как нумеруются клетки волшебного квадрата" 

91 РКШТ 

92 РКШТ "1 2 3" 

93 РКШТ "4 5 6" 

94 РКШТ "7 8 9" 

95 КЕМ Начальные присваивания 

96 РОК 1=1 ТО 9 

97 А(ІН) 

98 В(І)=0 

99 техт I 

100 М=0: М=0 

102 КЕМ Очередной ход игрока 

103 РКШТ 

104 РКШТ "Ваш ход: укажите клетку и число"; 

105 ШРОТ І,И 

НО ІР І<1 0К І>9 ОК N<1 0К N>9 ТНЕ\ 130 
120 ІР А(І)=0 АШ В(И)=0 ТНЕИ 150 

130 РКШТ "Ход сделан неправильна.. Попытайтесь еще раз." 

135 СОТО 103 

150 А(І>Ш:ВдаН;М=№1 

170 еозте 960 
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180 СОЗЧВ 800 

190 КЕМ Сделанный ход привел к проигрышу 
200 ІР И=0 ТНЕЫ 230 

210 РКШТ 'К сожалению, Вы проиграли." 

211 СОТО 560 

230 ІР М<5 ТНЕЫ 400 

240 РКШТ "Ничья - но зато мы построили волшебный квадрат." 

250 СОТО 560 

300 КЕМ Ход, который делает программа 

400 РОК 0=1 ТО 9 

410 ІР А(0>0 ТНЕИ 480 

420 РОК К=1 ТО 9 

430 ІР В(К>0 ТНЕЫ 470 

435 А(0)=К 

440 СОЗІІВ 800 

450 ІР И=0 ТНЕЫ 500 

460 01=0: К1=К: И=0: А(0)=О 

470 ЫЕХТ К 

480 ЫЕХТ О 

490 И=Ь К=К1: 0=01: А(0)=К 
500 В(К)=1 

520 РКШТ "Я ставлю в клетку ";0;" число К 

530 СОЗІІВ 960 

540 ІР И=0 ТНЕИ 103 

550 РКШТ 'Я проиграл - Вы выиграли." 

555 КЕМ Еще одна партия 

560 РКШТ 

562 РКШТ СНК$(7)[ 

570 РКШТ 'Сыграем еще раз_." 

575 СОТО 96 

700 КЕМ Проверка,стала ли сумма чисел каких-либо из заполненных 
710 КЕМ строки, столбца или диагонали отличной огг пятнадцати 
800 РОК Х=1 ТО 8 

810 ОИ X СОТО 820,830,840,850,860,870,880,890 

820 ,І=1;К=2:Е=3:С0Т0 900 

830 К=4:І*=7:С0Т0 900 

840 К=5:Ь=9:С0Т0 900 

850 3=4:Ь=6:С0Т0 900 

860 ,І=2:І,=8:60Т0 900 

870 ,І=3:І,=7:00Т0 900 

880 ,І=7:І,=9:00Т0 900 

890 .І=7:К=8 

900 ІР А(.І)=0 ОК А(К)=0 ОК А(Ь)=0 ТНЕИ 930 

920 ІР А1.ІКА(К>А(Ь) О 15 ТИБЫ 940 

930 ЫЕХТ X 

935 СОТО 950 

940 И=1 

950 кЕтты 

955 КЕМ Печать квадрата 
960 РКШТ 
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965 РКШТ А(ПА(2),А(3) 
970 РКШТ А44ІАІ5І А(6) 
975 РКШТ А(7)Л(8)Л(9) 
980 РКШТ 
990 КЕТЧКК 
999 ЕЮ 


Листинг 22 


1 КЕМ Вращающийся квадрат 

2 КЕМ ХВМ РС ВА5ІС 

3 КЕМ (С) Сгеаііѵе Сотриііп^ 

4 КЕМ Адаптация - Г.Гнеэдилова 

5 РКШТ ТАВ(26);’Враща[ощийся квадрат" 

6 РКШТ ТАВ(26);"======= ==" 

10 РКШТ:РКШТ:РКШТ 

11 ШМ В(16), В$(16) 

12 КЕМ Правила игры 

13 ШРЧТ 'Вы знакомы с правилами игры";А$: РКШТ 

14 ІР ЬЕРТ$(А$,1НД" ТНЕЫ 140 

15 РКШТ " Игровая доска состоит из 16 клеток, которые?' 

20 РКШТ "расположены и нумеруются следующим образом:" 

25 РОК 1=1 ТО 16: ваН= ИЕХТ 

30 РКШТ: РОК 1=1 ТО 13 ЗТЕР 4 

35 РКШТ ТАВ(2); ВОД; ТАВ(6); В(І+1): 

36 РКШТ ТАВ(10)і В(І+2); ТАВ(14>, В(І+3) 

40 ЫЕХТ I: РКШТ 

45 РКШТ " В исходной позиции клетки игровой доски" 

47 РКШТ "заполнены в произвольном порядке латинскими" 

48 РКШТ "буквами от А до Р. Цель игры - расположить их по" 

50 РКШТ "алфавиту. Любой квадрат, образованный четырьмя" 

55 РКШТ "соседними клетками доски, макет быть повернут" 

56 РКШТ "по часовой стрелке. Ход игры заключается " 

57 РКШТ "в повороте выбранного квадрата на одну клетку." 

60 РКШТ "Для этого должен быть указан номер левой верхней" 

61 РКШТ "клетки квадрата. Допустимыми являются ходьп" 

65 РКШТ "1 2, 3, 5, 6, 7, 9, 10, 11 Тем самым, если " 

70 РКШТ "буквы расставлены на доске следующим образом:" 

75 РОК 1=1 ТО 16: В$(І)=СНК$(І+64): ЫЕХТ: В$(2)="С': В$(3)="С" 

80 В$(6Н'В": В$(7)="Р": С05ЧВ 400 

85 РКШТ "и Вы поворачиваете квадрат, левая верхняя клетка" 

86 РКШТ "которого имеет номер 2, буквы расположатся по? 1 

87 РКШТ "алфавиту^' 

90 РОК 1=2 ТО 7: В$=СНК$Д+64> ЫЕХТ Ъ С051Ш 400 
95 РКШТ " Вы выиграли.": РКШТ 

100 РКШТ " В Вашем распоряжении также имеется один " 

103 РКШТ "дополнительный ход, который может быть" 

104 РКШТ "использован только один раз: Вы можете переставить" 

105 РКШТ "две соседние буквы одной строки. Для этого!' 

110 РКШТ "введите '-!, после чего Вам будет задан вопрос" 

115 РКШТ "о номерах клеток с буквами, подлежащими " 
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120 РКІЛТ "перестановка Помните - только один дополнительны ЯР 
125 РКІЛТ "ход за игру.": РКШТ 

130 РКІЛТ " В любой момент Вы можете прервать текущую партию” 

135 РКШТ "и начать новую - введите для этого О^РКІЛТіРКІЛТ 

136 КЕМ Исходная расстановка букв на доске 
140 РОК 1=1 ТО 16 : В$аКа': ЛЕХТ I 

150 РОК 1=1 ТО 16 

160 Т$=СНК$аЛТ(16*КЫ0(1>65)) 

165 РОК 3=1 ТО X 

170 ІР В$Р)=Т$ ТНЕЛ 160 

175 ЛЕХТ 3 

180 В$(ІК$: ЛЕХТ I 

190 М=0: 3=0 

192 РКІЛТ " Это начальная расстановка букв. - ": СОЗЧВ 400 

195 КЕМ Очередной ход игрока 

200 ІЛРІГГ "Номер левой верхней клетки квадрата";I 

202 ІР 1=0 ТНЕЛ РКІЛТ: РКІЛТ: СОТО 140 

205 ІР І=-1 ТНЕЛ 510 

2Ю ІР 1=4 ОК 1=6 ОК І>12 ТНЕЛ РКІЛТ "Неправильна": СОТО 200 
220 М=М+1 Т$=В$(І) 

230 В$(І)=В$(І+4> В$а+4)=В$а+5): В$(І+5)=В$(І+1): В$а+1>=Т$ 

240 ООЗЧВ 400 

250 КЕМ Проверка, расставлены ли буквы по алфавиту 

305 РОК 1=1 ТО 16 

310 ІР СНК$а+64)о В$(І) ТНЕЛ 200 

315 ЛЕХТ I 

320 РКІЛТ 

321 РКІЛТ "Вы выиграли за "Д " ходов.": М1=М1+М: 0=0+1 
325 РКІЛТ СНК$(7) 

327 КЕМ Еще одна партия 

330 РКІЛТ: ІЛРЧТ 'Еще одна партия"; А$ 

331 ІР ЬЕРТ$(А$ДМЯ” ТНЕЛ 140 

340 РКІЛТ: РКІЛТ 'Вы сыграли "О?' партий и сделали в" 

350 РКІЛТ "среднем ";М1/6;" ходов эа партию": РКІЛТ: ООТО 999 
370 КЕМ Печать текущего состояния игровой доски 
400 РКІЛТ: РОК 1=1 ТО 13 ЗТЕР 4 
4Ю РКІЛТ ВОД" '^В$а+1Г ";В$(І+2);" ";В$а+3) 

420 ЛЕХТ I: РКІЛТ: КЕТЧКЛ 

500 КЕМ Перестановка двух соседних букв строки 

510 ІЛРЧТ "В каких клетках переставить буквы"; XV 

520 ІР ХОѴ+1 АЛЛ ХОѴ-1 ТНЕЛ РКІЛТ "Неверна": СОТО 510 

530 3=3+1 

531 ІР 5>1 ТНЕЛ РКІЛТ "Только один ход за игру.": ООТО 200 
540 Т$=В$(Х): В$(Х)=В$(Ѵ> В$(Ѵ)=Т$: СОТО 240 

900 КЕМ Игра окончена 
999 ЕЛО 


Листинг 23 


1 КЕМ Черный ящик 

2 КЕМ ІВМ РС ВАЗІС 


О Яптг 
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3 КЕМ (С) Сгеаііѵе Сотриііпе 

4 КЕМ Адаптация - ГТнеэдилова 
50 ШМ В(Ю,Ю) 

100 РКШТ ТАЩ25); 'Черный ящик" 

105 РКШТ ТАЩ25); "== ==*' 

НО РКШТ: РКШТ: РКШТ: 

140 ОЕР РЫК(2)=ШТ(8*КШ(2}+1) 

145 КЕМ Задание числа шаров 
150 РКШТ "Число шаров в ящике''; ШРЧТ N 
155 КЕМ Размещение шаров на игровой доске 
160 РОК 3=0 ТО 9: РОК 1=0 ТО 9: В(І,^)=0: ИЕХТ І,.І 
170 РОК 1=1 ТО N 

180 Х=РЛК(1) У=РЯК(1): ІР В(Х,Ѵ)0 О ТНЕЫ 180 
190 В(Х,Ѵ)=1 ЫЕХТ I 
200 8=0: С=0 

210 РКШТ "Позиция, в которой испускается луч";: ШР4Т К 

215 ІР К<1 ТНЕЫ 480 

216 КЕМ Анализ движения луча 

220 ОЯ (К-1)\8+1 СОТО 240, 250, 260, 270 
230 РКШТ 'Ход неверен": СОТО 210 
240 Х=0: У=К: 4=1; Ѵ=0: СОТО 280 
250 Х=К-8: Ѵ=9: 4=0: Ѵ=-1 СОТО 280 
260 Х=9: У=25-К: Ч=-1 Ѵ=0: СОТО 280 
270 Х=33-К: Ѵ=0: 4=0: Ѵ=1 
280 Х1=Х+Ч: У1=У+Ѵ 

290 ІР 4=0 ТНЕЯ Х2=Х1-1 ХЗ=Х1+1 У2=У1 ѴЗ=Ѵ1 СОТО 310 
300 Ѵ2=Ѵ1-1 ѴЗ=УВ-1 Х2=Х1 ХЗ=Х1 

310 ОЯ 8*В(Х1,У1)+В(Х2Ѵ2}+2*В(ХЗ,ѴЗ)И СОТО 330,340,350,340 

320 РКШТ "Луч поглощен": 3=3+1; СОТО 210 

330 Х=Х1 У=У1 СОТО 380 

340 2=1: СОТО 360 

350 2=-1 

360 ІР 4=0 ТНЕЯ 4=2: Ѵ=0: СОТО 380 
370 4=0: Ѵ=2 

380 ОЯ (Х+15)\8 СОТО 420,400,430 
390 ЕЫ0 

400 ОЯ (У+15)\8 СОТО 440,280,450 
410 ЕЮ 

420 2=Ѵ: СОТО 460 
430 2=25-У: СОТО 460 
440 2=33-Х: СОТО 460 
450 2=8+Х 

460 ІР 2=К ТНЕЯ РКШТ "Луч отражен": 3=3+1- СОТО 210 
470 РКШТ "Луч прошел через позицию ";2: 3=3+2 СОТО 210 
475 КЕМ Завершение очередной партии 
480 РКШТ "Укажите клетки, в которых по Вашему мнению" 
490 РКШТ "имеются шары (сначала номер строки, затем" 
495 РКШТ "номер столбца)!' 

500 РОК 0=1 ТО N 
510 РКШТ "Шар # ";0; 
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520 ШРІІТ и 

530 ІР Вр,І)о 1 ТНЕИ 3=8+5: СОТО 540 
532 В(Д,І)=2 
535 С=С+1 
540 ИЕХТ О 

550 РКШТ: РОК Д=1 ТО 8: РОК 1=1 ТО 8 
560 ІР ЩЫН) ТНЕЫ РКШТ " СОТО 580 
570 РКШТ " *"; 

580 ЫЕХТ I: РКШТ: ИЕХТ Д: РКШТ 

590 РКШТ 'Вы правильно обнаружили С;" из ";Ы;" шаров." 

600 РКШТ 'Вы получили в этой партии ";3;" штрафных очков." 
610 ШРІІТ "Будете играть еще раз”;А$ 

620 ІР ЬЕРТ$(А$Д)="Д" ТНЕИ РКШТ: СОТО 150 

Листинг 24 


1 КЕМ Вишневый пирог 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Ву Ьее Д.О., ВеесЪ С., Ьее ТВ. 

4 КЕМ Адаптация - ГТнеэдилова 
10 ОІМ А(9,9) 

20 РКШТ ТАВ(20), 'Вишневый пирог" 

30 РКШТ ТАВ(2оИ'======" 

40 ЬЕТ Т$= "Повторите правильно" 

45 КЕМ Правила игры 
50 РКШТ 

60 РКШТ "Нужны ли правила игры? Введите ДА или НЕТ' 

70 ШРІІТ 0$ 

80 ІР 0$=”НЕТ' ТНЕЯ 250 
90 ІР 0$="ДА" ТНЕЯ 120 

100 РКШТ 'Ответ 0$; '" непонятен. Ответьте ДА или НЕТ' 

110 СОТО 70 

120 РКШТ " В эту игру могут играть два и более игроков." 

130 РКШТ "Игровая доска - это квадрат размером 9*9 клеток." 

131 РКШТ 'Вся доска или ее часть может быть занята пирогом," 

132 РКШТ "разрезанным на куски Куски раскладываются в клетки" 

133 РКШТ "доски, начиная с верхней левой." 

134 РКШТ "Количество строк и количество столбце» клеток," 

135 РКШТ "занятых пирогом, Вы задаете сами в начале игры" 

136 РКШТ "Каждый кусок пирога указывается номерами" 

137 РКШТ "строки и столбца клетки, в которой он лежит." 

138 РКШТ "Нумерация начинается сіи выполняется " 

139 РКШТ "слева направо и сверху вниз." 

140 РКШТ " В кусок пирога, расположенный в левой верхней' 

141 РКШТ "клетке доски (номера ее строки и столбца 1ДУ 

150 РКШТ "запечена вишня. Этот кусок показывается буквой Р." 

160 РКШТ 

170 РКШТ " Вот так выглядит пирог, разрезанный на Т 
175 РКШТ "кусков по горизонтали и 4 куска по вертикали:" 

180 КЕАД Р,К,С 
190 ДАТА 1,4,7 
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200 СОТО 640 

210 РКШТ " Игреки делают ходы поочередна В каждый ход” 

211 РКШТ "игрок забирает один или несколько кусков пирога." 
215 РКШТ "Проигрывает тот, кому достанется кусок с вишней." 
220 РКШТ "Для того чтобы указать часть пирога, которую Вы" 
225 РКШТ "хотите забрать, задайте через запятую номер" 

230 РКШТ "столбца и номер строки одной из клеток доски - " 
240 РКШТ 'Вы получите кусок, находящийся в этой клетке," 

245 РКШТ "и все куски, расположенные справа и снизу от нега" 

246 КЕМ Начальные присваивания 
250 ЬЕТ Р$=0$ 

260 ЬЕТ Р=0 

270 РОК 1=1 ТО 9: РОК 3=1 ТО 9: А(І,.І)=0: ЫЕХТ 3: ИЕХТ I 
280 РКШТ 

285 КЕМ Задание числа игроков и размеров доски 
290 РКШТ "Задайте количество игроков" 

300 ШРОТ Р 

310 ІР Р>1 ТНЕИ 340 

320 РКШТ "Должно быть не менее двух игроков. ";Т$ 

330 СОТО 300 

340 ІР Р=ІОТ(Р) ТНЕИ 370 

350 РКШТ 'Введенное число не является целым. Т$ 

360 СОТО 300 

370 РКШТ "Задайте количество столбцов игровой доски" 

380 ШРОТ С 

390 ІР 0=1 ТНЕИ 420 

400 РКШТ 'Столбце® слишком мала Т$ 

410 СОТО 380 

420 ІР С<=9 ТНЕИ 450 

430 РКШТ "Должно быть не больше 9 столбцов. Т$ 

440 СОТО 380 

450 ІР С=ШТ(С) ТНЕИ 480 

460 РКШТ 'Введенное число не является целым. Т$ 

470 СОТО 380 
480 ЬЕТ 31=0 

490 РКШТ 'Задайте количество строк игровой доски" 

500 ШРОТ К 

510 ІР К>=1 ТИБЫ 540 

520 РКШТ "Строк слишком мала Т$ 

530 СОТО 500 

540 ІР К<=9 ТНЕИ 570 

550 РКШТ 'Должно быть не больше 9 строк. Т$ 

560 СОТО 500 

570 ІР К=ШТ(К) ТНЕЫ 600 

580 РКШТ 'Введенное число не является целым. Т$ 

590 СОТО 500 

600 ІР К*С > 2*Р ТНЕЫ 630 

610 РКШТ "Игровая доска должна быть больше." 

620 СОТО 490 
630 РКШТ 
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635 КЕМ На доску выкладывается пирог 

640 РОК 1=1 ТО К 

650 РОК Л=1 ТО С 

660 ЬЕТ А(І,.І)=1 

670 ИЕХТ 3 

680 ЫЕХТ I 

690 ЬЕТ АС1Д)=-1 

700 КЕМ Вывод да экран игровой доски 
710 РКШТ 
720 РКШТ " 

730 РОК 1=1 ТО С 
740 РКШТ I; 

750 ЯЕХТ I 
760 РКШТ 
770 РОК 1=1 ТО К 
780 РКШТ I; ТАВ(7); 

790 РОК 3=1 ТО С 
800 ІР А(Г.З)=-1 ТНЕЯ 840 
810 ІР А(І,3) = О ТНЕЫ 860 
820 РКШТ "* 

830 СОТО 850 
840 РКШТ "Р "; 

850 ЫЕХТ 3 

860 РКШТ 

870 ЯЕХТ I 

880 РКШТ 

890 ІР Р=1 ТНЕЯ 210 

900 КЕМ Очередной ход 

910 ЬЕТ 81=31+1 

920 ЬЕТ Р1=31-ШТ(31/Р)*Р 

930 ІР Р1 О О ТНЕЯ 950 

940 ЬЕТ Р1=Р 

950 РКШТ "Игрек Р1;". Укажите Ваш кусок пирога"; 

960 ІР РЗ-'НЕТ 1 ТНЕЯ 980 
970 РКШТ " (столбец строка)!'; 

980 ШРИТ С1, К1 

1000 ІР ШТ(К1)+ШТ(С1)=К1+С1 ТНЕЯ 1030 

1010 РКШТ 'Числа должны быть целыми. "; Т$ 

1020 СОТО 950 
1030 ІР К1<1 ТНЕЯ 1090 
1040 ІР К1>К ТНЕЯ 1090 
1050 ІР СК1 ТНЕЯ Ю90 
1060 ІР С1>С ТНЕЫ 1090 
1070 ІР А(К1С1) = 1 ТНЕЯ ШО 
1080 ІР А(К1С1) =-1 ТНЕЯ 1180 

1090 РКШТ "Не стоит ловчить - Вы должны взять кусок." 

1100 СОТО 950 

1110 РОК І=К1 ТО К 

1120 РОК 3=С1 ТО С 

1130 ЬЕТ А(ЫН) 
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1140 ЮХТ Л 

1150 ЮХТ I 

1160 СОТО 710 

1170 КЕМ Игра закончена 

1180 РКШТ "Игрок Р1; " проиграл.” 

1190 РКШТ 

1200 РКШТ "Еще одна партия" 

1210 ШР11Т 0$ 

1220 ІР 0$='ДА" ТНЕИ 260 
1230 ІР 0$ = 'НЕТ' ТНЕИ 1260 

1240 РКШТ 'Ответ 0$; 4 непонятен. Ответьте ДА или НЕТ." 
1250 СОТО 1210 

1260 РКШТ 'Хороша До свидания.” 

1270 ЕЮ 


Листинг 25 


1 КЕМ Фруктовая машина 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Ву Ьее Л)., ВеесЬ О., Ьее Т.Д. 

4 КЕМ Адаптация - Г.Гнездилова 

20 РКШТ ТАШб* "Фруктовая машина" 

30 РКШТ ТАб(6і "=== ==" 

40 КЕМ Подготовка к работе с датчиком случайных чисел 
50 РКШТ "Задайте любое трехзначное числе/' 

60 ІЮ11Т ^ 

70 ІР 3 < 1000 ТНЕЫ 100 
80 РКШТ "Повторим еще раа" 

90 СОТО 50 
100 РОК 1=1 ТО 3 

но ьет ы=кщі) 

120 ЫЕХТ I 
130 ЬЕТ 8=0 
140 РКШТ "Ваша ставка 
150 ШРИТ В 

160 ІР В=ШТ(В) ТНЕЫ 190 

170 РКШТ "Число должно бытъ целым." 

180 СОТО 140 

190 ІР В < 1001 ТНЕИ 220 

200 РКШТ "Вы сделали слишком крупную ставку." 

210 СОТО 140 

220 ІР В > О ТНЕИ 250 

230 РКШТ 'Число должно быть положительным." 

240 СОТО 140 

250 РКШТ 'Хороша Через сколько ходов спрашивать,” 

260 РКШТ "не хотите ли Вы прекратить игру” 

270 ШР11Т Р 

280 ІР Р о ШТ(Р) ТНЕИ 310 
290 ІР Р<1 ТНЕИ 310 
300 ІР Р<11 ТНЕИ 330 

310 РКШТ "Вы должны задать целое число от 1 до 10." 



320 СОТО 270 
330 РКШТ 

335 КЕМ Правила игры 

340 РКШТ "Нужен ли список выигрышных комбинаций?' 

350 ШРІІТ 0$ 

360 ІР С^НЕГ ТНЕИ 460 
370 ІР 0$-'ДА" ТИБЫ 400 

380 РКШТ 'Ответ 0$; '" непонятен. Ответьте ДА или НЕТ." 

390 СОТО 350 

400 РКШТ " 1 Три шоколадки - Вы выиграли весь банк." 

410 РКШТ " 2. Любые три одинаковых фрукта - Вы получаете’’ 

420 РКШТ "в десять раз больше, чем сделанная ставка." 

430 РКШТ " 3. Любые два одинаковых фрукта и шоколадка 

440 РКШТ 'Вы получаете в пять раз больше," 

445 РКШТ "чем сделанная ставка." 

446 РКШТ " 4. Две шоколадки и любой фрукт - Вы получаете" 

450 РКШТ "в три раза больше^ чем сделанная ставка." 

460 РОК К=1 ТО Р 

465 КЕМ Случайный выбор трех предметов 

470 ЬЕТ Т=0 

480 РОК .1=1 ТО 3 

490 ЬЕТ X = ШТ(КЮ(1)*6Н1 

500 ІР X О 1 ТНЕИ 520 

510 РКШТ "Яблоко 

520 ІР X о 2 ТНЕЫ 540 

530 РКШТ "ВИШНЯ 

540 ІР X О 3 ТНЕИ 560 

550 РКШТ Труша 

560 ІР X О 4 ТНЕИ 580 

570 РКШТ 'Слива ''; 

580 ІР X О 5 ТНЕИ 600 
590 РКШТ 'Малина 
600 ІР X о 6 ТНЕИ 620 
610 РКШТ "Шоколад 
620 ЬЕТ Т=Т*10+Х 
630 ИЕХТ 3 

635 КЕМ Анализ выбранной комбинации предмете» 

640 ІР Т=666 ТНЕИ 900 

650 ЬЕТ Р=Ю 

660 РОК 1=1 ТО 35 

670 КЕАО И 

680 ІР I О 6 ТНЕИ 700 

690 ЬЕТ Р=5 

700 ІР I о 21 ТНЕИ 720 

710 ЬЕТ Р=3 

720 ІР Т=И ТНЕИ 770 

730 ЫЕХТ I 

740 ЬЕТ Р=0 

750 РКШТ " Вы проиграли "В, 

760 СОТО 780 



770 РКШТ " Вы выиграли ";Р*В, 

780 ЬЕТ 8=8+Р*В-В 

790 РКШТ "У Вас всего 8 

800 КЕ8Т0КЕ 

810 ЮХТ К 

820 РКШТ 

825 РЕМ Запрос да продолжение игры 
830 РКШТ "Будете играть еще?"; 

840 РКШТ ” Ответьте ДА или НЕТ." 

850 ШРІГГ 0$ 

860 ІР 08^’ДА" ТНЕИ 460 

870 ІР ОЗ^НЕТ ТНЕИ 960 

880 РКШТ 'Ответ 0$; непонятен."; 

890 СОТО 840 

900 РКЮТ '^******^^*******^***^***^^ 

9Ю РКШТ "♦*** Вы выиграли весь банк ♦***" 

930 РКШТ 

940 РКШТ "Вы выиграли "; ШТ(КЮ(1)*100*В)-3 
950 РКШТ 

960 ІР 5<1000 ТНЕИ 1000 

970 РКШТ 'Это слишком серьездая потеря." 

980 РКШТ "Мы просим Вас уйти." 

990 ЕЮ 

1000 ІР 5>0 ТНЕИ 1030 

1010 РКШТ "Надеемся еще не раз видеть Вас у себя." 
1020 ЕЮ 

1030 РКШТ 'Вы выиграли,но не слишком много." 

1040 РАТА 111,222,333,444,555,116,226,336,446,556 
1050 БАТА 161,262,363,464,565,611,622,633,644,655 
1060 РАТА 166,266,366,466,566,616,626,636,646,656 
1070 ОАТА 661,662,663,664,665 
1080 ЕЮ 


Листинг 26 


1 КЕМ Коровы и быки 

2 КЕМ ІВМ РС ВА5ІС 

3 КЕМ Ву Іее З.О., ВеесЬ 6., Ьее Т.0. 

4 КЕМ Адаптация - Г.Гнеэдилова 
10 ММ 0(4), N(4) 

20 РКШТ ТАВ(5); "Коровы и быки" 

30 РКШТ ТАВ(5Г=========^' 

40 РКШТ 

50 КЕМ Правила игры 
60 РКШТ "Нужны ли правила?" 

70 РКШТ "Ответьте ДА или НЕТ." 

80 ШРІЯ 0$ 

90 ІР 0$ = 'НЕТ ТНЕИ 480 
100 ІР 0$-ДА" ТНЕИ 130 

110 РКШТ 'Ответ “; 0$; '" непонятен. Ответьте ДА или НЕТ." 
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120 ООТО 80 
130 РКГОТ 

140 РКГОТ " Цель игры - угадать четырехзначное числа*" 

150 РКГОТ "задуманное компьютером. Каждая цифра числа" 

155 РКГОТ "принадлежит диапазону 1.6. Ни одна из цифр " 

160 РКГОТ "в числе не повторяется. Например, числа 1234, 5361 " 

170 РКГОТ "и 4236 могут быть задуманы, а числа 123, 5369 и" 

180 РКГОТ "4233 - нет, так как число 123 состоит не из?' 

185 РКГОТ "четырех, а только из трех цифр, в числе 5369 есть" 

190 РКГОТ "цифра (9), выходящая за допустимый диапазон," 

200 РКГОТ "а в числе 4233 цифра 3 встречается дважды.” 

210 РКГОТ " Очередной ход заключается в том, что Вы " 

215 РКГОТ "задаете некоторое четырехзначное числа* компьютер" 

216 РКГОТ "сравнивает его с задуманным и сообщает результат" 

220 РКГОТ "сравнения по следующим правилам. Сначала" 

225 РКГОТ "выдаются сообщения о цифрах, которые были правильно?' 
230 РКГОТ "угаданы и чья позиция в указанном Вами числе?' 

235 РКГОТ "совпадает с позицией в числе, загаданном " 

237 РКГОТ "компьютером. О каждой такай цифре сообщается словом/' 

240 РКГОТ "Бык'. Затем выдается сообщение о цифрах, которые" 

250 РКГОТ "были правильно угаданы, но чья позиция" 

260 РКГОТ "в указанном Вами числе не совпадает с позицией в?' 

270 РКГОТ "числе, задуманном компьютером. О каждой такой цифре" 
280 РКГОТ "сообщается словом 'Корова'. Никакие сообщения по" 

290 РКГОТ "поведу цифр, которые не принадлежат заду минному" 

295 РКГОТ "числу, не вьщаются." 

300 РКГОТ " Предположим, что задумано число 2361 а Вы " 

305 РКГОТ "назвали число 1325. В результате сравнения этих" 

ЗЮ РКГОТ "двух чисел будет напечатано/' 

320 РКГОТ "Бык (для цифры ЗУ 
330 РКГОТ "Корова (для цифры 1У 
340 РКГОТ "Корова (для цифры 2 Т 

350 РКГОТ " Поскольку цифра 5 не входит в число, задуманное' 1 
360 РКГОТ "компьютером, о ней ничего сказано не будет." 

370 РКГОТ " Так как число еще не угадано. Вы можете сделать" 

380 РКГОТ "очередную попытку. Число 1365 даст результат/' 

390 РКГОТ "Бык" 

400 РКГОТ "Бык" 

410 РКГОТ "Корова" 

420 РКГОТ " После того как Вы отгадаете задуманное число," 

430 РКГОТ "компьютер загадает новое - начнется другая партия." 

440 РКГОТ " Если Вы отчаялись угадать число, наберите 9999" 

450 РКГОТ "и Вы узнаете правильный ответ." 

460 РКГОТ " Желаем успеха." 

470 КЕМ Выбор с помощью датчика случайных чисел четырех цифр из 

475 КЕМ диапазона 18 

480 РКГОТ 

490 РОК 1=1 ТО 4 

500 ЬЕТ А= ГОТ(КШ(1)*6И 

510 РОК Л=1 ТО 1-1 
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520 КЕМ Сравниваем выбранную цифру с полученными ранее. 

530 КЕМ Сравнение выполняется с тем, чтобы исключить 

535 КЕМ повторное вхождение в число одинаковых цифр 

540 ІР А=С(3) ТИБЫ 500 

550 ЫЕХТ 3 

560 БЕТ С(І)=А 

570 ЩХТ I 

580 БЕТ 1=0 

585 КЕМ Очередной ход 

590 РКГОТ "Введите число?' 

600 горііт м 

610 КЕМ Определяем, продолжает ли игрок угадывать число 
615 КЕМ и является ли его ход допустимым 
620 ІР М О 9999 ТНЕМ 650 

*630 РКГОТ "Было задумано число?'; СЩ; С(2); С(3); С(4) 

640 СОТО 1050 

650 ІР М < 1000 ТИБЫ 670 

660 ІР М < 10000 ТНЕЯ 690 

670 РКГОТ "Вы должны задавать только четырехзначные числа” 
680 СОТО 600 

690 ІР М=(С(1) ; ПОО(НС(2) ; ПОО<-С(3)»1(НС(4)) ТИБЫ 1040 
700 КЕМ Разбиваем число на четыре отдельных цифры 
710 БЕТ ІЧ(1)=ГОТ(М/1000) 

720 БЕТ К(2)=ШТ(М/100Н0*Щ) 

730 БЕТ К(ЗНЭТ(М/10Н00*Щ)-10*Ж2) 

740 БЕТ И(4)=М-ГОТ(М/10)*10 
750 РОК 3=1 ТО 4 
760 БЕТ В=ВД 
770 ІР В<1 ТНЕМ 800 
780 ІР В<7 ТИБЫ 820 

790 КЕМ Было введено числа цифры которого выходят за 
795 КЕМ допустимый диапазон 

800 РКГОТ "Цифры числа должны принадлежать диапазону 1.6." 

810 СОТО 600 

820 РОК К=3+1 ТО 4 

830 ІР В О N01) ТНЕЫ 860 

840 РКГОТ "Повторное вхождение цифры в число недопустимо." 
850 СОТО 600 
860 МЕХТ К 
870 №ХТ 3 

880 КЕМ Число, введенное игреком, отвечает правилам игры 

885 КЕМ Увеличиваем на единицу число сделанных попыток и 

886 КЕМ сравниваем введенное число с задуьюиным 
890 БЕТ 1=1+1 

900 КЕМ Ищем быков 

910 РОК 3=1 ТО 4 

920 ІР С(3) О N(3) ТНЕМ 940 

930 РКГОТ "Бык" 

940 ЫЕХТ 3 

950 КЕМ Ищем коров 
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960 РОК .7=1 ТО 4 
970 РОК К=1 ТО 4 
980 ІР Д=К ТНЕИ 1010 
990 ІР Ср) о 1І(К) ТНЕ\ 1010 
1000 РКШТ "Корова" 

1010 ИЕХТ К 
1020 ЫЕХТ ^ 

1030 00Т0 600 

1040 РКШТ 'Верно. Число угадано за 1+1; " попытки." 

1045 КЕМ Запрос на продолжение игры 
1050 РКГОТ "Еще одна партия (ДА/НЕТ/' 

1060 ШР11Т 0$ 

1070 ІР 0$-Да" ТНЕИ 480 

1080 ІР С^НЕГ ТНЕ\ 1110 Щ 

1090 РКШТ 'Ответ 0$;'" не понятен Ответьте ДА или НЕТ." 

1100 СОТО 1060 
1110 РКШТ 

1120 РКШТ "Спасибо за игру.” 

ИЗО ЕШ 


Листинг 27 


1 КЕМ Морской бой 

2 КЕМ ІВМ РС ВА8ІС 

3 КЕМ Ву Ьее Д.О, ВеесЬ С., Ьее Т.й. 

4 КЕМ Адаптация - Г.Гнеедилова 
10 ЭІМ А(8), В(8,8), С(8), Р(8,8) 

20 РКШТ ТАВ(8); 'Морской бой" 

30 РКШТ ТАВ(8); "=====^' 

40 ЬЕТ 6=1 
50 РКШТ 

60 КЕМ Подготовка к работе с датчиком случайных чисел 
80 РКШТ "Введите любое двухзначное число?' 

іоо шрит т 

НО РОК 1=1 ТО АВ8(Т) 

120 ІіЕТ С1=КМХ1) 

130 ИЕХТ I 

140 РКШТ 'Это зашифрованная карта расположения вражеских кораблей." 
150 РКШТ "Воспользуйтесь ею, если Вам удастся ее расшифровать." 

160 РКШТ 

170 КЕМ Начальные присваивания 
180 ЬЕТ С1=ШТ(КЩ1)*2) 

190 ЬЕТ С1=1-С1 

200 ЬЕТ С2=ШТ(ККІ)(1)*2) 

210 РОК 1=1 ТО 8 

211 РОК Д=1 ТО 8 

212 Р(І,Д)=0 

213 МЕХТ Л 

214 ИЕХТ I 

220 РОК 1=1 ТО 8 

221 КЕАЭ А(І) 
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222 ЫЕХТ I 

230 ЭАТА 1,0,ОД-1,0,0,-1 

240 КЕМ Расстановка кораблей на карте 

250 РОК 1=8 ТО 1 5ТЕР -1 

260 ЬЕТ 5=ШТ((І+1)/2) 

270 ЬЕТ Х=ШТ(Кт(1)*8К1 
280 ЬЕТ У=ШТ(КЩ1)*8)И 
290 ЬЕТ 0=ШТ(КЩ1)*4)*г-1 
300 РОК 3=0 ТО 5-1 
310 ІР Х+Л*А(0)=9 ТИБЫ 270 
320 ІР ХкІ*А(0)=0 ТНЕК 270 
330 ІР У+Л*А(І}+1)=9 ТИБЫ 270 
340 ІР У+Л*А(0+-1)=0 ТИБЫ 270 
^ 350 ІР Р((Х+Д*А(0)),(У+Д*А(ІЭ+1))) о О ТНЕК 270 
360 МЕХТ 3 
370 РОК 3=0 ТО 5-1 
380 ЬЕТ Х1=Х+.І*А(0) 

390 ЬЕТ Ѵ1=У+Д*А(І>И) 

400 РОК К=1 ТО 7 5ТЕР 2 

410 ІР Х1+А(К)=9 ТИБЫ 460 

420 ІР ХР-А(К)=0 ТИБЫ 460 

430 ІР УВ-А(К+1)=9 ТИБЫ 460 

440 ІР У1+А(К+1)=0 ТИБЫ 460 

450 ЬЕТ Р((ХЬ-А(К)\(У1+А(К+1)))=-1 

460 ЫЕХТ К 

470 №ХТ 3 

480 РОК .1=0 ТО 5-1 

490 ЬЕТ Р((Х+а*А(0)Х (У+.І*А(І>+1)))=І 

500 ЫЕХТ Л 

510 ЫЕХТ I 

520 КЕМ Вывод карты на экран 
530 РОК .1=1 ТО 8 
540 РКШТ ’Т’КЭ-ЗХ") 

550 ЬЕТ У1=(^*С1+(1-С1)*(9-3)) 

560 РОК К=1 ТО 8 

570 ЬЕТ Х1=(К*С2К1-С2)*(9-К)) 

580 ІР Р(Х1,У1)>0 ТИБЫ 620 
590 ЬЕТ Р(Х1,У1) = О 
600 РКШТ " . 

610 60Т0 630 
620 РКШТ Р(Х1, У1> 

630 ЫЕХТ К 
640 РКШТ 
650 ЫЕХТ 3 
660 РКШТ 

670 РКШТ ТАВ(7>, 'Щ2ХЗХ4Х5Х6Х7Х8Г 

680 РОК 1=1 ТО 8 

681 РОК 3=1 ТО 8 

682 В(І,.І)=0 

683 ЫЕХТ 3 
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684 КЕХТ I 

690 ІР е>1 ТІШ 980 

700 РКINТ 

705 КЕМ Правила игры 

710 РКГОТ "Нужны ли правила? Ответьте ДА или НЕТ." 

720 ГОРІІТ (5$ 

730 ІР 0$-ДА" ТНЕИ 770 
740 ІР 0$='’НЕТ' ТНЕИ 990 

750 РКГОТ 'Ответ не понятен. Ответьте ДА или НЕТ." 

760 СОТО 720 

770 РКГОТ " Расположение кораблей на показанной карте может' 1 
775 РКГОТ "соответствовать действительному расположению или" 
780 РКГОТ "быть закодированным одним из трех способов:" 

790 РКГОТ " (А) симметричным отражением относительно" 

795 РКГОТ "вертикальной прямой, проходящей через?' 

796 РКГОТ "середину карты;" 

800 РКГОТ " (В) симметричным отражением относительно" 

805 РКГОТ "горизонтальной прямой, проходящей через?' 

806 РКГОТ "середину карты;" 

810 РКГОТ ” (С) симметричным отражением,выполненным " 

815 РКГОТ "сначала так, как указано в пункте (АХ а затем" 

816 РКГОТ "так, как указано в пункте (В)." 

820 РКГОТ " Квадраты, нанесенные на карту, задаются двумя" 
825 РКГОТ "координатами - X и У, указанными через запятую." 

830 РКГОТ "Левый нижний квадрат карты имеет координаты 1,1" 
840 РКГОТ " На поле боя стоят два миноносца (по" 

845 РКГОТ "одному квадрату каждый), два крейсера" 

850 РКГОТ "(по два квадрата каждый); два линкора" 

860 РКГОТ '(по три квадрата каждый) и два авианосца (по? 1 
870 РКГОТ "четыре квадрата каждый)" 

880 РКГОТ ” После того как Вам будет предложено?' 

890 РКГОТ "выстрелить, введите координаты квадрата," 

900 РКГОТ "который Вы хотите поразить. В ответ Вы получите'' 

910 РКГОТ "сообщение о том, насколько удачным был выстрел:” 

920 РКГОТ "Вы можете попасть в корабль, потопить его или” 

925 РКГОТ "проѵихнутьса Для того чтобы потопить корабль," 

930 РКГОТ 'Вы должны поразить каждый квадрат, который он" 

935 РКГОТ "занимает. Так, для того чтобы потопить" 

940 РКГОТ "миноносец, в него достаточно попасть один раз," 

950 РКГОТ "в крейсер нужно попасть два раза, в линкор - три," 
960 РКГОТ "в авианосец - четыре раза," 

970 РКГОТ " Для того чтобы прекратить игру, задайте" 

975 РКГОТ "координаты 0,0" 

980 РКГОТ 

985 КЕМ Начальные присваивания 
990 ЬЕТ Ь=0 

1000 РОК 1=1 ТО 8 

1001 КЕАО С(І) 

1002 №ХТ I 

1010 РАТА 3,3,2,20,1,0,0 
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1020 ЬЕТ 3=0 

1030 РКШТ "Укажите квадрат, который Вы хотите поразить." 

1040 ШРОТ Х,У 
1050 ІР X о О ТНЕК 1090 
1060 ІР У о 0 ТНЕЫ 1160 
1070 РКШТ "Игра прекращена." 

1080 СОТО 1490 

1090 ІР Х+Ѵ=ШТ(Х)+ШТ(Ѵ) ТНЕК 1120 

1100 РКШТ "Координаты должны быть целыми числама Повторите." 

1110 СОТО 1040 

1120 ІР Х>8 ТНЕК 1160 

ИЗО ІР Х<1 ТНЕЫ 1160 

1140 ІР Ѵ>8 ТНЕИ 1160 

1150 ІР У>=1 ТНЕР) 1180 

1160 РКШТ 'Выстрел сделан мимо поля боя. Повторите" 

1170 СОТО 1040 

1180 ЬЕТ 5=5+1 

1190 ІР Р(Х,У)=0 ТНЕК 1350 

1200 ІР С(Р(Х,У))с4 ТНЕИ 1230 

1210 РКШТ 'Будьте внимательны Вы уже потопил^'; 

1220 СОТО 1330 

1230 ІР В(Х,У>0 ТИБЫ 1320 

1240 ЬЕТ В(Х,Ѵ)=Р(Х,У) 

1250 РКШТ "Прямое попадание в"; 

1260 60811В 1670 

1270 ЬЕТ С(Р(Х,У))=С(Р(Х,Ѵ))+1 

1280 ІР С(Р(Х,Ѵ)>=4 ТНЕК 1370 

1290 ІР 5=25 ТИБЫ 1470 

1300 РКШТ " - следующий выстрел" 

13Ю СОТО 1040 

1320 РКШТ 'Вы уже попали в"; 

1330 60811В 1670 

1340 РКШТ '' в этом квадрате" 

1350 РКШТ "Мимо."; 

1360 60Т0 1290 

1370 РКШТ " - Вы его потопили"; 

1380 ЬЕТ Ь=Ь+1 
1390 ІР Ь<8 ТНЕЫ 1290 
1400 РКШТ 
1410 РКШТ 

1420 РКШТ "Вы уничтожили флот противника "; 

1430 РКШТ "за ";8;" выстрелов." 

1440 ІР 5>20 ТИБЫ 1490 

1450 РКШТ 'Вероятно, Вы расшифровали карту.'" 

1455 РКШТ 'каждый выстрел - прямое попадание.” 

1460 60Т0 1490 

1470 РКШТ 'Вы израсходовали все 25 снарядов." 

1490 РКШТ 

1500 РКШТ 'Еще одна партия" 

1510 ШРОТ 0$ 
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1520 ІР 0$ =ГЦА" ТНЕЫ 1560 
1530 ІР ()$ ^НЕТ' ТИБЫ 1640 

1540 РКШТ 'Ответ "; 0$; 4 не понятен. Ответьте ДА или НЕТ." 
1550 ООТО 1510 
1560 КЕ5Т0КЕ 
1570 ЬЕТ 0=<Л-1 

1580 РКШТ "Кодировать прежним способом” 

1590 ШРІІТ 0$ 

1600 ІР 0$ -ДА" ТНЕИ 210 
1810 ІР 0$ ="НЕТ' ТНЕИ 190 

1820 РКШТ 'Ответ 0$; '" не понятен Ответьте ДА или НЕТ." 
1630 СОТО 1590 

1640 РКШТ 'Хорошо. До свидания." 

1650 ЕГГО 

1660 КЕМ Подпрограмма для определения вида корабля 
1670 ІР Р(Х,У)с= 6 ТНЕИ 1700 
1680 РКШТ " авианосец"; 

1690 КЕТШШ 

1700 ІР Р(Х,Ѵ)с=4 ТНЕИ 1730 
1710 РКШТ " линкор"; 

1720 кетілш 

1730 ІР Р(Х,Ѵ)С=2 ТНЕИ 1780 
1740 РКШТ ” крейсер”; 

1750 КЕТШИ 

1760 РКШТ " миноносец"; 

1770 КЕТШИ 
1780 ЕШ 


Листинг 28 


1 КЕМ Прыгающие шарики 

2 КЕМ ІВМ РС ВА5ІС 

3 КЕМ (С) Сгеаііѵе Сошриііпе 

4 КЕМ Адаптация - ГГнеэдилова 

10 РКШТ ТАВ(22)[ "Прыгающие шарикѣ' 

15 РКШТ ТАВ(22)! "=— ==" 

20 РКШТ: РКШТ: РКШТ 
1040 ОІМ 0(9Д) 

1045 КЕМ Правила игры 

1050 РКШТ "Нужны ли правила игры"; 

1060 ШРІІТ А$ 

1070 ІР ЬЕРТ$(А$Д)="Н" ТНЕИ 1140 

1080 РКШТ " Игровая доска имеет девять лунок, в восьми из" 
1085 РКШТ "которых лежат шары Первые четыре лунки содержат" 
1090 РКШТ "по одному черному шару (изображаются буквой ’Ч),” 
1100 РКШТ "последние четыре - по одному белому (изображаются" 
1110 РКШТ 'буквой Б). Средняя лунка пуста (изображается” 

1120 РКШТ ''точкой). Цель игры - поменять местами чернью и” 
1125 РКШТ "белью шары." 

ИЗО РКШТ "Желаем успеха. Это игровая доска.-" 

1135 КЕМ Начальные присваивания 
1140 5=0 
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1150 РОК Х=1 ТО 4 
1160 ІЕТ 0(Х,1)=1 
1170 ЫЕХТ X 

нео ьет (2(5дн> 

1190 РОК Х=6 ТО 9 
1200 ЬЕТ (2(ХД)=2 
1210 ЫЕХТ X 
1220 ЬЕТ А$-'.ЧІ?' 

1230 РОК Х=1 ТО 9 

1240 РКШТ МШ$(А$,0(ХД)ИД)! 

1250 РКШТ " "; 

1260 тХТ X 
1265 5=5+1 

1267 КЕМ Очередной ход 
1270 РКШТ 'Ваш ход”; 

1280 ШРІГТ мда 

1285 КЕМ Проверка, является ли ход допустимым 
1290 ІР М<=9 А№ М>=1 АКБ М1<=9 АШ М1>=1 ТИБЫ 1330 
1300 РКШТ 'Ход сделан неправильно.” 

1310 60Т0 1270 

1330 ІР М+1=М1 ОК М-1=М1 ТНЕМ 1430 

1350 ІР М=9 ТНЕК 1390 

1360 ІР М=1 ТИБЫ 1410 

1370 ІР (ХМЦДК) ОК (5(М-1Д)=0 ТИБЫ 1300 

1380 60Т0 1420 

1390 ІР (5(М-1Д)=0 ТНЕМ 1300 

1400 СОТО 1420 

1410 ІР 0(М+1ДН> ТНЕМ 1300 

1420 ІР М+2 о М1 АШ М-2 о М1 ТИБЫ 1300 

1430 ІР (5(М,1) О О ТНЕМ 1460 

1440 РКШТ "Лунка "Д" пуста.” 

1450 СОТО 1270 

1460 ІР (5(М1,1)=0 ТНЕМ 1490 

1470 РКШТ "Лунка "-МѴ занята." 

1480 СОТО 1270 
1485 КЕМ Прыжок шара 
1490 ЬЕТ 0(М1ДНЗ(М,1) 

1500 ЬЕТ 0(МД)=0 

1505 КЕМ Проверка, переставлены ли шары 
1510 Х9=(ХИК0(2Д)КХЗ,1К0(4Д) 

1512 У9Кг(6Д>-0(7ДК0(8,1К!(9Д) 

1514 ІР Х9=6 АШ Ѵ9=4 ТНЕМ 1530 

1520 СОТО 1230 

1530 РКШТ "Вы выиграли." 

1535 РКШТ "Вы переставили шары за ";3;" ходов." 

1537 КЕМ Запрос на продолжение игры 
1540 РКШТ "Еще одна партия"; 

1550 ШРОТ А$ 

1560 ІР ЬЕРТ$(А$ДКД" ТНЕЫ ИЗО 
1570 ЕШ 
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Листинг 29 


1 КЕМ Ним 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Ву Ьее Л.й, ВеесЬ С., Бее Т.Д 

4 КЕМ Адаптация - Г.Гнеэдилова 
10 ОІМ А(3,3), И(3), Х(3), У(3) 

20 РКШТ ТАВ(8); "НиіЛ' 

30 РКШТ ТАВ(8)! "==" 

40 БЕТ 0=К=С=0 
50 РКШТ 

55 КЕМ Правила игры 

60 РКШТ "Нужны ли правила игры?" 

70 РКШТ "Ответьте ДА или НЕТ." 

80 С0811В 1670 

90 ІР 0$="НЕТ' ТНЕЫ 190 

100 РКШТ " Имеются три кучки с камешками. На каждом ходу" 
110 РКШТ " Вы можете взять из любой одной кучки столько?' 

120 РКШТ 'камешков, сколько хотите Ходы будут делаться" 

125 РКШТ 'Вами и компьютером поочередно до тех пор, пока" 

130 РКШТ "на доске не останется ни одного камешка. Выигрывает" 
135 РКШТ "игрок, сделавший последний ход." 

140 РКШТ " На каждом ходу следует указать через запятую, из" 
145 РКШТ "какой кучки и сколько камешков Вы хотите забрать.” 
150 РКШТ "Так, например, чтобы взять из третьей кучки два" 

160 РКШТ "камешка, следует ввести '3,2'." 

165 РКШТ " В любой момент Вы можете прекратить игру. Для" 
170 РКШТ "этого следует ввести '0,0*' 

180 БЕТ С = КЩ1) 

185 КЕМ Выбор числа камешков и размещение их по кучкам 

190 РОК 1=1 ТО 3 

220 БЕТ Х(І) = ШТ(К1МП<1)*5+1) 

230 БЕТ И(І)=Х(І) 

240 ЫЕХТ I 
250 РКШТ 

260 РКШТ "Партия " (ГВК+1) 

270 КЕМ Вывод игровой доски 
280 00811В 1460 

290 РКШТ "Будете делать первый ход?' 

300 00511В 1670 

310 ІР 0$-’ДА" ТНЕБ 830 

320 РКШТ "Ход делает компьютер" 

330 РОК 1=1 ТО 3: РОК Д=1 ТО 3: А(І,Л)=0: ЫЕХТ Л: БЕХТ I 
340 РОК 1=1 ТО 3 

350 КЕМ Формирование двоичного представления числа камешков 
355 КЕМ в каждой кучке 
360 БЕТ А(І,3)=ШТ (Х(І)/4) 

370 БЕТ А(І,2)=ШТ(Х(І)/2)-2*А(І,3) 

380 БЕТ А(І,1)=Х(І)-ШТ(Х(І)/2)*2 
390 БЕХТ I 

400 КЕМ Суммирование соответствующих цифр 


9. Зак. 
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405 КЕМ двоичного представления 
410 ЬЕТ Ѵ(1)=АагКА(2,1КА(ЗД) 

420 ЬЕТ Ѵ(2)=А(1,2КА(г2КА(3.2) 

430 ЬЕТ Ѵ(3)=АазКА(2 > ЗКА(3,3) 

440 КЕМ Проверка, есть ли хотя бы одна нечетная сумма 

450 РОК Д=3 ТО 1 ВТЕР -1 

460 ІР У(Д)=1 ТНЕМ 590 

470 ІР У(Д)=3 ТНЕМ 590 

480 МЕХТ Д 

490 КЕМ Ход, когда все суммы четны 

500 ІР Х(2Н> ТНЕМ 550 

510 ЬЕТ Х(2)=Х(2)-1 

520 ЬЕТ 1=2 

530 ЬЕТ 2=1 

540 СОТО 750 

550 ЬЕТ 1=3 

560 ЬЕТ Х(ЗУ=Х(ЗН 

570 СОТО 530 

580 КЕМ Ход, который делает все суммы четными 

590 РОК 1=1 ТО 3 

600 ЬЕТ 2=0 

610 ІР А(І,ДИ ТНЕМ 630 

620 (1ЕХТ I 

630 ЬЕТ А(І,Д)=0 

640 ЬЕТ 2=2+2"(Д-1) 

650 ЬЕТ Д=Д-1 
660 ІР Д=0 ТНЕМ 740 
670 ІР У(Д)=1 ТНЕЫ 690 
680 ІР У(Д)03 ТНЕМ 650 
690 ІР А(І,.ІН ТНЕЫ 630 
700 ЬЕТ А(І,Д)=1 
710 ЬЕТ 2=2-2~(Д-1) 

720 СОТО 650 
730 ЬЕТ А(І,ДН> 

740 ЬЕТ Х(І)=Х(І)-2 
750 РКІЫТ І;",";2 
760 ЬЕТ Т=Х(1>-Х(2КХ(3) 

770 ІР Т=0 ТНЕМ 1160 
780 ІР Т>1 ТИБЫ 820 

790 РКІ11Т 'Компьютер выходит из игры” 

800 СОТО 1250 

810 КЕМ Печать игровой доски 
820 6081ІВ 1460 
830 РКІМГ 'Ваш ход" 

840 ІЫР11Т Е,Р 

850 ІР Е+Р=ШТ(Е)ИЩР) ТНЕИ 880 

860 РКШТ "Числа должны бьпъ целыми. Повторите.", 

870 СОТО 840 

880 ІР Е=0 ТНЕМ 920 

890 ІР (Е-1)*(Е-2)*(Е-ЗН> ТНЕК 950 

900 РКЮТ "Неправильный номер строка Повторите" 
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910 СОТО 840 

920 ІР РоО ТНЕИ 900 

930 РРШТ 'Вы вышли из игры" 

940 СОТО 1170 

950 ІР Х(Е)>=Р ТНЕИ 980 

960 РРШТ 'Только ";Х(Е)Г камешков в кучке ЕЛ Повторите" 

970 СОТО 840 

980 ІР Р>0 ТНЕЫ 1020 

990 РРШТ "Неправильное число камешков. Повторите” 

1000 СОТО 840 

1010 РЕМ Удаляем Р камешков из кучки Е 
1020 ЬЕТ Х(Е)=Х(Е)-Р 
1030 ІР Е>1 ТНЕИ 1050 
1040 ЬЕТ С=РЩ1) 

1050 ЬЕТ В=1 

1060 РОР 1=1 ТО 3 

1070 ІР Х(І) > О ТНЕИ 1090 

1080 ЬЕТ В=ВП 

1090 ИЕХТ I 

1100 ІР В=4 ТНЕЯ 1240 

ШО ІР В=3 ТНЕИ 1140 

1120 еозцв ибо 
изо сото 320 

Ц40 РРШТ "Компьютер выигрьшает." 

1150 СОТО П70 

Ибо РРШТ "Компьютер выиграя" 

1170 ЬЕТ І)=І}И 

1180 ЬЕТ С=РНО(1) 

иво ЬЕТ 02=0 

1200 РРШТ 'Текущий счет" 

1210 РРШТ "Компьютер: "Л 
1220 РРШТ 'Вы ”,К 
1230 СОТО 1280 

1240 РРШТ "Вы выиграли. Поздравляю." 

1250 ЬЕТ Р-К+1 

1260 ЬЕТ 02-1 

1270 СОТО 1200 

1260 ІР ГН-Р<20 ТНЕИ 1310 

1290 РРШТ "Компьютер устал." 

1300 ЕМ 

1310 РРШТ "Еще одна партия" 

1320 СОЗИВ 1670 

1330 ІР 0$="ДА” ТНЕИ 1360 

1340 РРШТ 'Хороша До свидания.” 

1350 ЕШ 

1360 ІР 02=1 ТНЕИ 190 

1370 РРШТ "Исходная позиция та же?" 

1380 СОЗИВ 1670 

1390 ІР 0$="НЕТ' ТНЕИ 190 

1400 КЕМ Такой была исходная позиция в предыдущей партии 



1410 РОК 1=1 ТО 3 

1420 ьет хаиед 

1430 NЕXТ I 
1440 СОТО 250 

1450 КЕМ Печать игровой доски 

1460 РКШТ "-" 

1470 ЬЕТ 1=1 

1480 ІР ХС)о5 ТНЕИ 1500 


1490 РКШТ '1 X X X X X Г 
1500 ІР X® о 0 ТНЕИ 1520 
1510 РКШТ "I Г' 

1520 ІР Х(І)о 1 ТНЕМ 1540 
1530 РКШТ 'Т X Г’ 

1540 ІР X® о 2 ТНЕИ 1560 
1550 РКШТ "I XX Г’ 

1560 ІР X® о 3 ТНЕМ 1580 
1570 РКШТ "ІХХХ Г' 
1580 ІР X® о 4 ТНЕИ 1600 
1590 РКШТ "I X X X X Г' 
1600 ІР 1=3 ТІШ 1640 
1610 РКШТ "I Г' 

1620 ЬЕТ 1=1+1 
1630 СОТО 1480 

1640 РКШТ "-" 

1650 КЕТШШ 


1660 КЕМ Подпрограмма для проверки правильности ответа 
1670 ШРОТ 0$ 

1680 ІР (3$-'ДА" ТНЕМ 1720 
1690 ІР (ЗЗ^ИЕГ ГНЕМ 1720 

1700 РКШТ 'Ответ непонятен. Ответьте ДА или НЕТ." 

1710 СОТО 1670 
1720 КЕТШШ 
1730 Е№ 


Листинг 30 


1 КЕМ Угадай число 

2 КЕМ ІВМ РС ВА5ІС 

5 С0511В 500 ОПРЕДЕЛИТЬ КАИ2 
8 РАШ0МІ2Е КАЛ2 
10 С=6 : N=100 

50 ШРОТ "Вам нужны правила (1=ДА, 2=НЕ1Т;2 
60 ІР 201 ТНЕМ 180 

70 РКШТ 'Я загадала число в интервале от 1 до "ДО 
80 РКШТ "Попробуйте угадать его. В каждой попытке Вы" 

90 РКШТ "вводите 2 числа, стараясь поймать мое число, т.а" 
100 РКШТ "сделать так, чтобы оно сказалось между Вашими" 

110 РКШТ 'Я буду сообщать, поймали ли Вы его, а если нет, то" 
120 РКШТ "меньше мое число или больше Ваших двух" 

130 РКШТ "Если Вы полагаете, что знаете мое число, то" 

140 РКШТ "введите его дважды, например: 4,4" 
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150 РКШТ "У Вас ";С;" ПОПЫТОК." 

180 X = ШТ(К1ГОШ) 

200 РОК 0 = 1 ТО С 

210 РКШТ : РКШТ "Попытка Г-Д-, : ШРЧТ А, В 

230 ІР АОВ ТНЕИ 240 

235 ІР X = А ТНЕИ 400 

240 ІР А<=В ТНЕЫ 260 

250 СОЗИВ 360 

260 ІР Х<А ТНЕИ 300 

270 ІР X < = В ТНЕИ 320 

280 РКШТ "Мое число БОЛЬШЕ Ваших двух." 

290 СОТО 330 

300 РКШТ 'Мое число МЕНЬШЕ Ваших двух." 

310 СОТО 330 

320 РКШТ 'Вы поймали мое число" 

330 ИЕХТ О 

340 РКШТ " Очень жаль, но Ваши ";С; 

345 РКШТ " попыток кончились. Вот мое числа X 

350 СОТО 410 

360 К=А : А=В : В=К 

390 КЕТОНИ 

400 РКШТ "Вы угадала." 

410 ШРІІТ "Хотите играть еще (1=ДА, 2= НЕТУ ;Р 
420 ІР Ро2 ТНЕИ 180 
430 РКШТ "До свидании." 

440 ЕШ 

500 КЕМ-Заголовок и ожидание для случайного выбора числа 

510 КАИ2=30000 : СЬЗ 

520 ЬОСАТЕ 12 29 : РКШТ "ЛОВУШКА ДЛЯ ЧИСЛА" 

530 ЬОСАТЕ 14, 30 : РКШТ "Нажмите пробел" 

540 ІР ШКЕѴ$="' ТНЕИ КАИ2=(КАН2+1)МОП 32000 : СОТО 540 
550 СЬЗ 
560 КЕТЧКИ 


Листинг 31 

5 ' ЗСКАМВЬЕ ИОКБ САМЕ. ѴЕКЗІОХ 3/11/82 
7 КЕМ ІВМ РС ВАЗІС 

9 КЕМ Адаптация - Г.Сенин 

10 СЬЗ:КЕУ ОРР:ЬОСАТЕ 5,30:РКШТ "МЕШАНИНА" 

15 БЕР ЗЕС:РОКЕ 106,0 

20 ЬОСАТЕ 9,25:РКШТ "НУЖНЫ ПРАВИЛА?"; 

30 С$=ШКЕѴ$:КАШ0МІ2Е К№*1000 

35 ІР С$^" ТНЕИ 30 ЕЬЗЕ ІР С$0’Д" АМ СЗо'й" ТНЕИ МО 
40 СЬЗіРКШТ "ЦЕЛЬ ИГРЫ - КАК МОЖНО БЫСТРЕЕ РАЗГАДАТЬ СЛОВО,"; 
42 РКШТ "5 БУКВ КОТОРОГО ПЕРЕМЕШАНЫ" 

44 РКШТ "ЧЕМ СКОРЕЕ ВЫ ЭТО СДЕЛАЕТЕ, "; 

46 РКШТ "ТЕМ БОЛЬШЕ ПОЛУЧИТЕ ОЧКОВ." 

48 РКШТ "ВАМ ДАЕТСЯ НЕ БОЛЕЕ МИНУТЫ НА КАЖДОЕ СЛОВО." 

50 РКШТ:РКШТ'ПРИМЕРЫ"' 

60 РКШТ' Т М С Н А ПРЕВРАЩАЕТСЯ В М А Т С Н " 
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70 РКШТ' А" 

80 РКШТ' N Ь А В К ПРЕВРАЩАЕТСЯ В В Ь А N К ":РКШТ 
90 РКШГПРОСТО НАБИРАЙТЕ 5-БУКВЕННОЕ СЛОВО, КОТОРОЕ ВАМ"; 

92 РКШТ ” КАЖЕТСЯ ПРАВИЛЬНЫМ-" 

94 РКШТ "НАЖИМАТЬ КЛАВИШУ ВВОД’ ПОСЛЕ ЭТОГО НЕ НУЖНО" 

100 РКШТ:РКШТ:РКШТ 

105 ШРОТВАЖМИТЕ ВВОД', ЧТОБЫ ПРОЧИТАТЬ СЛЕДУЮЩУЮ СТРАНИЦУ;Е$ 
Ш СЬЗ 

112 РКШТ "ЕСЛИ ВЫ ОШИБЛИСЬ ПРИ ВВОДЕ-"; 

114 РКШТ "ПРИДЕТСЯ ЗАКОНЧИТЬ СЛОВО-ИСПРАВЛЯТЬ НЕЛЬЗЯ" 

120 РКШТРКШТОДНО СЛ1Ю МОЖЕТ ПОЯВЛЯТЬСЯ НЕОДНОКРАТНО. 

122 РКШТ'ОНО МОЖЕТ ПОЯВИТЬСЯ И В НОРМАЛЬНОМ ПОРЯДКЕ БУКВ” 

124 РКШТВ КАЖДОЙ ИГРЕ ОБОИМ ИГРОКАМ ДАЕТСЯ ПО 10 СЛОВ" 

130 РКШТ:РКШТ'ПРИЯТНЫХ ВАМ РАЗВЛЕЧЕНИЙ":РКШТ:РКШТ:РКШТ 
135 :ШР1ГПСТУКНИТЕ ПО КЛАВИШЕ ВВОД', ЧТОБЫ НАЧАТЬ ИГРУ;С$ 

140 СЬЗ 

150 ШРОТ 'КАК ЗОВУТ 1-ГО ИГР0КА''^$(1) 

160 ШРОТ 'КАК ЗОВУТ 2-ГО ИГРОКА'Ш$(2) 

170 Х=0:СЬ5:РКШТ "ИГРАЕТ ";Ы$(1) 

180 РОК 0=1 ТО 500ЙЕХТ О: СОТО 2Ю 
190 Х=0:СЬ5:РКШТ "ИГРАЕТ "^$(2) 

200 РОК О = 1 ТО 500: ИЕХТ О 

210 КЕ5Т0КЕ 

220 0=ШТ(210*КШИ. 

230 РОК Р=1 ТО О 

240 КЕАО А$ I ІР А$= "ЕИ0' ТНЕИ 210 

260 ИЕХТ Р 

270 А$(1) = МШ$ (А$ДД) 

280 А$(2) = МЮ$ (А$,2Д) 

290 А$(3) = МІІЭ$ (А$,ЗД) 

300 А$(4) = МЮ$ (А$,4,1) 

310 А$(5) = МШ$ (А$,5Д) 

320 РОК I = 1 ТО 5 
330 К=ШТ(5*КГОИ 
340 ІР А$(К) -’О" ТНЕИ 330 
350 В$а) = А$(Н) 

360 А$(К) = "О" 

370 ИЕХТ I 

375 Т1$=КІСНТ$(ТІМЕ$,2) 

377 Т$=КІСНТ$(ТІМЕ$,2)ДР Т$=П$ ТНЕИ 377 

380 ЬОСАТЕ 5,24:СОЬОК 15:Р0К I = 1 ТО 5 

390 РКШТ В$(І>" "і 

400 ИЕХТ ЪСОЬОК 7 

410 Ѵ$=ШКЕѴ$:ІР Ѵ$о'" ТНЕИ 4Ю 

420 СОЗИВ 900 : Ѵ$=І$ 

440 ЬОСАТЕ 9,28:РКШТ Ѵ$; 

450 СОЗИВ 900 : И$=І$ 

470 ЬОСАТЕ 9,32:РКШТ «$; 

480 СОЗЦВ 900 : Х$=І$ 

500 ЬОСАТЕ 9,36:РКШТ Х$; 
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510 605ЦВ 900 : У$=І$ 

530 ЬОСАТЕ 9,40:РКІЯТ У$; 

540 СОЗИВ 900 : 2$=І$ 

560 ЬОСАТЕ 9,44:РКІИТ 2$; 

570 ІР А$ = (Ѵ$+И$+Х$+У$+2$) ТНЕИ 590 
580 ЬОСАТЕ. 9,20:РКІИТ ТАВ(60*:60ТО 4Ю 
590 5=5+1: ІР 5/2 = ШТ (5/2) ТНЕN 660 
600 Р1=Р1+С 

610 Р!Ш]Т:РКІМТ:Ріт]Т:Ріт]Т ТАВ(6) "ПРАВИЛЪНОЛРКШТ 
620 РКШТУ ВАС ";0; 'ОЧКОВ" 

630 ЬОСАТЕ 22,30:РКШТ ІИТ(5/2}Ц"-Й КРУГ’.'РКЮТ 
640 РКШТ ТАВ(20) И$(Ц[Рі;' ";Ы$(2)[Р2; 

650 РОК Ѵ=1 ТО 4000: ИЕХТ V: СОТО 190 
660 Р2=Р2+С 

670 РКІМТ:РКШТ:РКШТ:РКІМТ ТАВ(6) "ПРАВИЛЬШ.":РКШТ 
680 РКШТУ ВАС ";С; ’ОЧКСВ" 

690 ЬОСАТЕ 22,30:РКШТ 3/2;"-Й КРУГ":РКІИТ 
700 РКШТ ТАВ(20) И$(1);Р1,-" ";И$(2);Р2; 

710 РОК Ѵ=1 ТО 4000-.ИЕХТ V 
720 ІР 5=20 ТНЕИ 730 ЕЬЗЕ 170 
730 РКШТ:РКІИТ "КОНЕЦ ИГРЫ";:ЕШ) 

740 РКШТРКШТ " ВРЕМЯ ИСТЕКЛО' 

745 РКШТРКШТ'БЫЛ) ЗАГАДАНО: ";А$ 

750 5=8+1:ІР 5/2=ШТ(5/2) ТНЕИ 690 ЕЬЗЕ 630 

760 Т$=КІСНТ$0ПМЕ$,2>ІР Т1$ОТ$ ТНЕИ Т1$=Т$:Х=Х+1С=61-Х 

765 ЬОСАТЕ 9,65:РКШТ С; 

770 ІР С<=0 ТНЕИ 740 
780 КЕТШШ 

790 ДАТА ЬЕАЗЕ.РІКЗТ.МОИТЦМОИЕУ, ТОЦСН, ВКАИй ТКЦЬУ, ѴАШЕ 

793 ЦАТА КАКОЕ, МЦ5ІС,ЬЕѴЕЬ,МЕТЕК,РОШТ,ТОТАЬ, РАКЕЬ, АМРЬЕ 

795 ДАТА ТНЕКЕ,ТНКЕЕ,ЕИ.І0У,ВІЛЬТ,5Н0КТ,С0ИЬ0, СЬЕАЯ, РКООР 

797 ЦАТА 501ЖО,РЬООК,ШОЕХ,РКІСЕ,ВОАКО 

800 ДАТА САВЬЕ,СЬОСК,ТАВЬЕ,5МОКЕ,МОІ5Е,ЬОИЕК 

805 ДАТА ВАЗІС,АІШІО,РКОМТ,ИНІЬЕ,КАТІ ОДМАСЕ 

810 ДАТА РКОМТ,ОТНЕК,ШЕАЬ,5ТОКЕ,РОИЕК,ИОМЕИ 

813 ЦАТА ТОТАЬ,МАОІС,СЬОВЕ,МООЕЬ,РКШТ,ТОИЕК, СОѴЕК, ЕІСНТ 

815 ДАТА СЫОЕ,ИАТЕК,ТООАУ,РІ22АМЕТАЬ,5НЕЬР,ОКІѴЕ, СЬАЗЗ 

817 ДАТА 6КЕАТ,ЫСНТ,5САЬЕ,5ТУЬЕ,ВКЕА0,0КШК,РН0КЕ 

820 ДАТА 5НАРЕ,СКЕЕК,СЬАЗЗ,5АЦСЕ,5ЫСЕ,НЕАКТ 

825 ДАТА ЬАК0Е,5ТЕАМ,0Ш0К,5ТАСК 

830 ПАТА СКЕАМ,СКЦЗТ,ЗАЬАЦЕХТКАОКОЕК,ВАСОМ,ВЬАСК 

823 ЦАТА ОЫУЕ,5МАЬЬ,5РЕАК,5СКЕИ,5Е\ЛШ,ООЦ6Н,РЬОАТ, НЕАКО 

825 ПАТА 50ЬЮ,НЕАѴУ,СКІ5Р,РШСН,РШСН,5ЕИ5Е,50Ы0 

827 ЦАТА 5ТАЩЕѴЕКѴ.5Н0СК.ѴШУЬ, МАРЬЕ. ИОѴЕЧСКАШ 

840 ДАТА ЗКАТЕ, РОКСЕ, СОЬОК,РІЕСЕ,АИСЬЕ,РІТСН 

845 ЦАТА ИОКТН,АВОиТ,ИЕІСН,СНЕСК,НАЮУ,САШУ 

850 БАТА 5ИЕЕР,РАТСН,ИАСОИ,ТКІІСК,РОІІКО,ТОИЕЬ 

853 ОАТА РАРЕК,СИЯЕТ, ЗРАСЕ,КАОЮ,ТНЕЗЕ,САККУ 

855 ОАТА АЬОМС,КЕАОУ,ТНЕКЕ,ИНЕКЕ,АЬАКМ,РАЦ5Е,ТІМЕК, 

857 ОАТА СЬОТН,5НАСК,5ТІСК,ЕКА5Е,АЬВЦМ,5ТАКТ,ЬАРЕЬ, ИНІТЕ, ОЕЬАУ 
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860 БАТА. ЕЛЕСТ,5Ы0Е,ЮЕАЬ,МШІІ5 > СКАРН,РЬ0АТ 

865 БАТА (ДОСК,ВЬАІ«К,5ЩТЕЛУЬОМ 

870 ОАТА РКОВЕ.КЕЬАУ.ЗОЬЩЗИЕЕТ.ЗЬОРЕ.ЗЬЕЕР.СОІДОТ 

873 БАТА ЬОСІС.МОШТ.ОЕСАЕ.ЗСАЬЕ.ОЕОЕЕ.ТОКСН.ЗРАОЕ 

875 БАТА 5С0РЕ,ЬАВЕЬ,К0ТО0,НАРЕК,САККУ,ЬОИЕР,ТЕАСН 

877 БАТА АСАШ,МОТОКМАЛОР,ЬЕАКМ,ОКСАМ,СКІРЕ,ЕАСЬЕ 

880 ОАТА САОСЕ,МАТСН.АИАКЕ,ТКІПІК,СЬАМР,ОТНЕК 

885 БАТА ЖШЬО,иМІТ,5НШС,ИКІ5Т 

890 ОАТА ЕШ 

900 І$=ШКЕУ$:ІР 1$=”' ТНЕК СОЗЦВ 760:С0Т0 900 
910 ІР ЬЕЫ(І$) >1 ТНЕN 900 
920 І=АЗСа$>ІР I >96 АЛО I <123 ТНЕЯ 1=1-32 
930 І$=СНК$(І) 

940 КЕПЛГО 
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10 КЕМ Снаряд 
20 КЕМ ІВМ РС ВАЗІС 
30 КЕМ Ву Лоіт МсСаІІоп 
40 КЕМ Адаптация - ОГончаров 
100 СЬЗ 

НО А$=ЗТКШС$(80,205) 

120 РКШТ А$ 

130 РКШТ ТАВ(27УМІЗЗЬЕ ЗТКІКЕ 42011-А.ВА8' 

140 СОЬОК 23,0,0 

150 РКШТ :РКШТ РКШТ ТАВ(38ПРСО' 

160 СОЬОК 7,0,0 

170 РКШТ :РКШТ :РКШТ ТАВ(27)™ТЕКМТІОМАЬ РС ООТІЕКЗ" 
180 РКШТ :РКШТ 

185 РКШТ ТАВ(19К 

186 РКШТ "р.о. Ьох 10426, ріІІзЪчгеЬ, реппвуіѵапіа 15234" 
190 РКШТ А$ 

200 РКШТ :РКШТ :РКШТ :РКШТ :РКШТ 

210 РКШТ ТАВ(24УНАЖМИТЕ КЛАВИШУ ДЛЯ ПРОДОЛЖЕНИЯ" 

220 А$=ШКЕѴ$:ІР А$='"' ТИБЫ 220 
230 СЬЗ 

240 2=0:С050В 580 

250 СЬЗ : М=1 : И=1 : ЬОСАТЕ 12,30 : РКШТ 'ВОЛНА ’’ И : Р=150 

255 РОК Ь=1 ТО 500:№ХТ 

260 СЬ5:І=1;КЕУ ОРР:В=45:Н=23 

270 ІР К>=3 ТНЕИ В$=”0' ЕЬЗЕ В$="*' 

280 ОИ ЕККОК СОТО 260 

290 ЬОСАТЕ 25,3:РКШТ "ОЧКОВ "2 

300 Х=ШТ(КШЦ)*50)ІР Х>25 ТНЕИ Х=45 ЕЬЗЕ Х=35 

310 ЬОСАТЕ Н.В : М$=5ТКШС$(3,223) : РКШТ М$ 

320 1=1+1 : У=ШТ(КЩ1)*50) : ІР У>25 ТНЕЫ Х=Х-1 ЕЬЗЕ Х= Х+1 
325 ІР Х<10 ТНЕИ Х=11 : ІР Х>70 ТНЕИ Х=69 
330 5=Х:ІР 1=24 ТИБЫ 480 

340 ЬОСАТЕ 1,3 : РКШТ В$ : РОК Л=1 ТО Р : ИЕХТ 
345 ІР І=Н АТО (3=В ОК 3=В+1 ОК 5=В+2) ТНЕИ 430 
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350 А$=ШКЕѴ$ : ІР А$="" ТНЕЫ 320 
360 ІР А$=СНІф(75) ТНЕИ 390 
370 ІР А$=СНК$(76) ТНЕЫ 410 
380 СОТО 320 

390 В=В-1 : ЬОСАТЕ Н,В : РРШТ М$;" " 

400 СОТО 350 

410 ЬОСАТЕ Н,В : РРШТ " ";М$ : В=В+1 
420 СОТО 350 

430 ЬОСАТЕ НДРРШТ "< >":РРШТ СНР$(7):Р0Р 0=1 ТО 20ЛЕХТ 

440 ІР В$="(Г ТНЕN 460 

450 СОТО 470 

460 2=2+50:Р=Р+5 

470 2=2+50 

480 М=М+ИР М=20 ТНЕN 500 
490 СОТО 260 

500 Р=Р+10:ІР 2/50>=Р ТНЕЫ 540 

510 СЬаЬОСАТЕ 25,1:РРШТ 'ОЧКОВ "2:Ь0САТЕ 12,25 

515 ШРИТ "ХОТИТЕ ЕЩЕ ИГРАТЬ ”;Ѵ$ 

520 ІР ТНЕИ 240 

530 ЕНО 

540 М=ѴМ:ЬОСАТЕ 13,30:РРШТ "ВОЛНА ”№РОР Ц=1 ТО 1000:ИЕХТ 

550 Ѵ=0:М=0: Р=Р-50 

560 ІР Р<=50 ТИБЫ Р=25 

570 СОТО 260 

580 СЬЗ 

582 ЬОСАТЕ 15,25:РРШТ " СНАРЯД 

590 ЬОСАТЕ 16,25: РРШТ " +**»****»************ 

600 ЬОСАТЕ 17,25:РРШТ " АВТОР 

610 ЬОСАТЕ 18,25:РРШТ " ДоЬп МсСаІІоп 

615 ЬОСАТЕ 20,25:РРШТ 'КОРРЕКТИРОВАЛ О.ГОНЧАРОВ" 

618 РРШТ : РРШТ 

620 РРШТ " ЗЕМЛЯ АТАКУЕТСЯ СНАРЯДАМИ С ДРУГОЙ ПЛАНЕТЫ ” 

630 РРШТ " ВЫ ИСПОЛЬЗУЕТЕ НАЗЕМНУЮ ПУШКУ ДЛЯ БОРЬБЫ " 

640 РРШТ " С ИНОПЛАНЕТЯНАМИ. ВЫ ПОСЛЕДНЯЯ НАДЕЖДА ЗЕМЛИ" 
645 РРШТ " ИСПОЛНИТЕ СВОЮ ЗАДАЧУ ХОРОШО” 

650 РРШТ 

660 РРШТ " СИМВОЛ ЗНАЧЕНИЕ? 

670 РРШТ " * 50" 

680 РРШТ " О юо" 

690 РРШТ : РРШТ 

700 РРШТ " < > УНИЧТОЖЕН" 

710 РРШТ 

720 РРШТ " ВЫ ДОЛЖНЫ УНИЧТОЖИТЬ Ю ИЗ 20 ИНОПЛАНЕТЯН, " 

730 РРШТ " СТРЕЛЯЮЩИХ В ВАС (К'-ВЛЕВО, Ь'-ВПРАВО) " 

740 РРШТ " НАЖМИТЕ КЛАВИШУ ДЛЯ НАЧАЛА 

750 С$=ШКЕѴ$:ІР С$="' ТНЕИ 750 
760 РЕТ1ЛШ 
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Листинг 33 


1 60Т0 100 

3 ’ 

4 ' 

5 ИГРА. "НЕ ПЕРЕСЕКАЙ' (1) 

6 ' 

7 ' 

9 1ВМ РС ВАЗІС 

10 'Автор - О.Гончаров 

14 ' 

15 ' 

20 СОТО 1000 ОПИСАНИЯ 

22 СОТО 1200 ИНИЦИАЛИЗАЦИЯ 

30 СОТО 500 ОСНОВНОЙ ЦИКЛ 

32 СОТО 1400 ВЫЧИСЛИТЬ НАПРАВЛЕНИЕ 

34 СОТО 1600 ОТОБРАЗИТЬ ХОД НА ЭКРАНЕ 

36 СОТО 1800 ВЫЧИСЛИТЬ НОВЫЕ КООРДИНАТЫ 

38 СОТО 2000 'ПРОИГРЫШ 

40 СОТО 2200 ЗАВЕРШЕНИЕ 

99 ****** НАЧАЛО ПРОГРАММЫ 

100 СОЗІІВ 1000 ОПИСАНИЯ 

110 СОЗІІВ 1200 'ИНИЦИАЛИЗАЦИЯ 

499 ****** ОСНОВНОЙ ЦИКЛ 

500 С$=ШКЕѴ$ ВВОД СИМВОЛА БЕЗ ОЖИДАНИЯ 

505 ІР С$="" ТИБЫ 600 ВЫЧИСЛИТЬ НОВЫЕ КООРДИНАТЫ 
510 С=ІН5ТКС'Х2-ѵ",С$) 

520 ІР С=0 ТНЕИ 600 ВЫЧИСЛИТЬ НОВЫЕ КООРДИНАТЫ 
530 СОЗІІВ 1400 ВЫЧИСЛИТЬ НАПРАВЛЕНИЕ 
550 СОТО 500 

600 СОЗІІВ 1800 ВЫЧИСЛИТЬ НОВЫЕ КООРДИНАТЫ 

650 СОЗІІВ 2000 'ПРОИГРЫШ 

660 ІР Ь=1 ТНЕИ 2200 

850 СОЗІІВ 1600 ОТОБРАЗИТЬ ХОД НА ЭКРАНЕ 

900 СОТО 500 

999 ****** ОПИСАНИЯ 

1000 БЕРШТ А-2 

1010 РЬШМ=1 КОЛИЧЕСТВО ИГРОКОВ - 1 

1020 ПІМ ОІКШМ( РЬШМ ) МАССИВ НАПРАВЛЕНИЙ 
1022 ОІМ СООКЩ РЕШИ, 1 ) МАССИВ КООРДИНАТ 

1025 ПІМ СНАК$(РЬШІМ) СИМВОЛ ДЛЯ ИЗОБРАЖЕНИЯ ИГРОКА 

1026 ПІМ 0ІКЗ(ЗД) МАССИВ ЕДИНИЧНЫХ ВЕКТОРОВ 

1027 ОІМ ЬОЗТ(РЬШМ) ПРИЗНАКИ ПЕРЕСЕЧЕНИЯ ИГРОКОВ 

1030 ОІМ СЬК(РЬШМ) МАССИВ КОДОВ ЦВЕТА ИГРОКОВ 

1040 ОІМ СОШТ(РЬШІМ) СЧЕТЧИК поражений игроков 

1090 КЕТТОИ 

1199 ****** ИНИЦИАЛИЗАЦИЯ 

1200 0ІКШМ(0) =0 : 0ІКШМ(1)=2 
1210 СООЩОДНО : СООЩОДНО 
1215 СООКОДДНО : СООЕО(ДО)=30 

1220 СНАК$(0) =СНК$(1> СНАК$(1)=СНК$(2 ) 
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1225 СЬЦОН : СЬК(І)=4 

1230 ШКЗ(0,0Н : ШКЗ(0Д)=0 

1231 МКЗ(1,0Н) ШК5(1ДН 

1232 ШК8(20)=-1: ШКЗ(2Д)=0 

1233 ШКЗ(3,0)=0 : ШК5(ЗД)=-1 
1240 ЬОЗТ(О) =0 : Ь03Т(1)=0 : Ь=0 
1245 НЮТН 40 

1250 КЕУ ОРР : СОЬОК 0,7 : СЬЗ : СОЬОК 6,5 

1255 ЬОСАТЕ 1,20 : РОК 1=2 ТО 39 : РКШТ : N6X1 I 

1256 ЬОСАТЕ 24,2 : РОК 1=2 ТО 39 : РКШТ : ИЕХТ I 

1258 РОК 1=2 ТО 23 : ЬОСАТЕ 1,1 : РКШТ 

1259 ЬОСАТЕ 1,40 : РКШТ 

1260 ИЕХТ 

1270 КЕУ 9,"2" :КЕУ 10,'X 
1290 КЕТШШ 

1399 ****** ВЫЧИСЛИТЬ НАПРАВЛЕНИЕ 

1400 РЬ=ШТ((С-1)/2) 

1410 КЕѴИ=(С МОБ 2)Ы 

1420 ОИ КЕѴИ СОТО 1440Д430 

1430 ИКИШКРЬН ШКШЦРЬ}*! ) МОО 4 : СОТО 1450 
1440 ШІШиМ(РЬН ОІКИПЦРЬНЗ ) МОБ 4 : СОТО 1450 
1450 КЕТІШ 

1599 ****** ОТОБРАЗИТЬ ХОД НА ЭКРАНЕ 

1600 РОК М=0 ТО РЬИШ 
1605 СОЬОК СЬК(М),2 

1610 ЬОСАТЕ СООКІЩі), СООКО(М,0) 

1620 РКШТ СНАК$(Ю 
1630 ИЕХТ 
1640 КЕТШГО 

1799 ****** ВЫЧИСЛИТЬ НОВЫЕ КООРДИНАТЫ 

1800 РОК 1=0 ТО РЬИОМ 

1810 СООКО(І,0)=СООКО(І,ОУ ШК5(ОІІШЦМ(І),0) 

1820 СООКІЭ(ІД)=СООКО(ІДУ 0ІКЗ(0ІКНЦМ(І)Ц) 

1830 ИЕХТ 
1840 КЕТШГО 

1999 ****** ПРОИГРЫШ 

2000 РОК 1=0 ТО РЬИШ 

2010 Х=5СКЕЕИ( СООКОДД), СООКОДО) ) 

2020 ІР Хо32 ТНЕИ Ь03Т(Г)=1 : Ь=1 
2030 ИЕХТ 

2040 РОК 1=0 ТО (РЫГОМ)/2 
2050 РОК Д=0 ТО РЬИЦМ 

2060 ІР Д=Д) ТНЕИ 2070 

2061 ІР ( С00КІХІ,0)оС00К0(Д,0)) ТНЕИ 2070 

2062 ІР ( СООКІХЫ)ОСООКІХДД)) ТНЕИ 2070 

2063 ЬОЗТДН : Ь03Т(ДИ : Ь=1 
2070 ИЕХТ 

2080 ИЕХТ 

2090 КЕТШШ 

2199 ****** ЗАВЕРШЕНИЕ 



2200 РОК 1=0 ТО РЬШМ 

2210 ХР ЬОЗТЦН ТНЕИ 2232 ЕЬЗЕ 2220 

2212 ЬОСАТЕ СООКО0Д), СООКО(І,0) 

2214 СОЬОК СЬК(ІХ2 : РКШТ "*"; 

2220 ИЕХТ 

2225 50ШЮ 40,2 :501ЛГО 160,2 

2230 РОК 1=0 ТО РЬШМ 

2240 ІР Ь05Т(І)=0 ТНЕИ 2260 

2250 ЬОСАТЕ 1,1*8+10: СОЬОК СЬК(Ц2 

2252 РКШТ " ТРАХ ";СНАК$(І);" С0гаТ(І)=С01ЖТ(І>И 

2260 ШХТ 

2262 ІІІ$=ШКЕУ$ 

2263 ІР ІІІ$=СНК$(27) ТНЕИ ИЮТН 80:С0Ь0К 7,1 : ЕШ 

2264 ЬОСАТЕ 25ДЗ: РКШТ СОЦМТЩ" "іСОЦМИО): 

2265 ІР ІІІ$0" " ТНЕИ 2262 
2270 СОТО НО 

2290 ЕШ 

5000 РКШТ 0ІККШ(0),ШККЦМ(1) 

5010 С$=ШКЕѴ$ : ІР С$="" ТНЕИ 5010 
5020 КЕТШШ 


Листинг 34 


1 ИГРА "НЕ ПЕРЕСЕКАЙ' (2) 

2 ТВМ РС ВАЗІС 

3 'Автор - ОГончаров 

4 КЕУ 9, "Г : КЕУ 10,"X' : ЗСКЕЕИ 0,0,0 

5 КЕУ ОРР : СЬЗ 

10 ШМ ИХ(7\ N7(7), ЗС(1) 

го Бата одд,иаі.-до,-д-д-і.-ш-ід 

30 РОК 1=0 ТО 7: КЕАБ ИХ(І) : КЕАО N7(1) : ИЕХТ I 

39 1 -— НАРИСОВАТЬ ПОЛЕ - 

40 ЬОСАТЕ 1Д : РКШТ 5ТКШС$(80,4) 

43 ЬОСАТЕ 23Д : РКШТ 5ТКШС$(80,4); 

50 РОК 1=1 ТО 23 : ЬОСАТЕ ІД : РКШТ СНК$(4); 

55 ЬОСАТЕ 1,80: РКШТ СНК$(4> 

58 ИЕХТ I 

200 N1= 2 : N2= 6 

210 Х1=20 : Х2=60 : У1=11 : У2=11 

390 '-ОСНОВНОЙ ЦИКЛ ИГРЫ- 

400 К$=ШКЕУ$ ВВОД СИМВОЛА С КЛАВИАТУРЫ 

410 ІР К$="' ТНЕИ 470 
420 С0=АЗС(К$) 

430 ІР С0=45 ТНЕИ И2=(112+7) МОО 8 ВЫЧИСЛЕНИЕ НАПРАВЛЕНИЯ 
440 ІР С0=43 ТНЕИ Ш=(Ш+1) МОО 8 
450 ІР С0=88 ТНЕИ Ш=(М+7) МОО 8 

460 ір со=эо тнеи мимы) МОО 8 

465 СОТО 400 ПРОДОЛЖИТЬ ОБРАБОТКУ НАЖАТЫХ КЛАВИШ 

470 ' 

600 Х1=ХМІХ(га) ВЫЧИСЛЕНИЕ НОВЫХ КООРДИНАТ 

610 У1=У1+ЦУ(Ш) 
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620 Х2=Х2ШХ(\2) 

630 У2=У2+№Ѵ(\2) 

650 ІР ЗСКЕЕЯ(УаХ2)=32 ТНЕЫ 660 'ПРОИГРЫШ? 

653 ЗОІЛГО 3000,2 

655 ЬОСАТЕ 1,70 : РКШТ 2 : ЗСДИОДИ : СОТО 1000 
660 ІР 5СКЕЕІІ{УІ,Х1)=32- ТНЕN 700 
663 501ЛГО 3000,2 

665 ЬОСАТЕ 1, 1 : РКШТ 1 : ЗС(0)=ЗС(0)<-1 : СОТО ЗОЮ 
700 ЬОСАТЕ ПХ1 : РКШТ СНК$(219); 

800 ЬОСАТЕ У2.Х2 : РКШТ СНК$(177); 

900 СОТО 400 

990 '-ЗАВЕРШЕНИЕ РАУНДА- 

1000 ІР 5СКЕЕІ1(У],Х1)=32 ТНЕЫ 1010 

1005 80ШП 3000,2 : ЬОСАТЕ 1Д : РКШТ 1 : 5С(0)=5С(0)Ч. 

10Ю ЬОСАТЕ 1,35 : РКШТ 5С(0Г : ";5С(1); 

1015 ІР ЗС(0>=30 ОК ЗСДНЗО ТНЕЫ РЬАУ "СЕ6ЕС" : Е№ 

1020 ІР ШКЕУ$о" " ТНЕЫ 1020 ЖДАТЬ НАЖАТИЯ ПРОБЕЛА 

1030 СЬЗ : СОТО 40 


Листинг 35 


1 КЕМ Змейка 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Автор - ОГончаров 
10 СОТО 40 

20 Н$-'ЗЕКР.ВАЗ" : РКШГЗаѵіпе ’ШЗ; 

30 ЬОСАТЕ 24Д : РКШТ "зузТ.епГ; : ЗАѴЕ ИЗ.А 
40 КЕУ ОРР : ЗСКЕЕИ 0,1 : СОЬОК 15,0,0 : ИШТН 40 : СЬЗ 
50 ЬОСАТЕ 5Д5 : РКШТ "АсаДешуЗоІГ 

60 ЬОСАТЕ 7,8 ,0 : РКШТ " Сашез 

70 СОЬОК 11.0 : ЬОСАТЕ 10,9,0 

71 В ПРОГРАММЕ ИСПОЛЬЗОВАЛИСЬ СЛЕДУЮЩИЕ КОДЫ СИМВОЛОВ 

72 '200-ЛЕВ.НИЖЕУГО Д 201-ЛЕВ.ВЕРХЕУГ0Д 205-Г0РИЗ.ЧЕРТА, 

73 206-КРЕСТ, 2Ю-СПЛ0ШЕКИРПИЧ 

75 218-ВЕРТ.ЧЕРТА, 219-ПРАВВЕРХЕУГОД 220-ПРАВ.НИЖЕУГОЛ 
80 РКШТ СНК$(201Д5ТКШС$(21,205)+СНК$(219) 

90 ЬОСАТЕ 11,9,0 

100 РКШТ СНК$(218К' ЗЕКРЕЫТ "+СНК$(218) 

110 ЬОСАТЕ 12,9,0 

120 РКШТ СНК$(218К5ТКШ0$(21,32ДСНК$(218) 

130 СОЬОК 11.0 : ЬОСАТЕ 13,9,0 

140 РКШТ СНК$(218К ВЕРСИЯ 101 "+СНК$(218) 

150 ЬОСАТЕ 14,9,0 

160 РКШТ СНК$(200КЗТКШ6$(21,205)ьСНК$(220) 

170 СОЬОК 15,0,1 : ЬОСАТЕ 17,9,0 
180 РКШТ " О.Гончаров 

190 ЬОСАТЕ 19,6 : РКШТ "(С)СоругдеЫ АсаДешуЗоП 1986" 

200 СОЬОК 11.0 : ЬОСАТЕ 23,4,0 

2Ю РКШТ "Нажмите пробел, чтобы продолжить.." 

220 ІР ШКЕУ$ о '" ТНЕИ СОТО 220 
230 СМО$ = ШКЕУЗ 
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240 ІР СМЕЯ = ТНЕЫ СОТО 230 

250 ІР СМО$ = СНК$(27) ТНЕЫ СОТО 180 

260 ІР СМГ>$ о " " ТНЕЫ СОТО 230 

270 ОЕРШТ А-2 : ШМ ШЕ$(50ХМ5С0КЕ(50) 

280 ШМ А5СОКЕ(50),\5СОКЕ(50),ОЬА(10)іС5Т(10) 

290 ШМ Р$(15),РХ(40І РѴ(40), РХ1(40) 

300 ШМ РУ1(40) : 8N0=0 : 08РЕЕБ=4 
ЗЮ РЫМ=10 : КРІСЫМ=Ю00 

320 0ЬА(4)=33 : 0ЬА(5)=16 : БЬА(6)=8 : 0ЬА(7)=4 
330 0ЬА(1)=512 : ОЬА(2)=170 : БЬА(3)=68 
340 Ш<А(8)= 2 : 0ЬА(9)= 1 
350 ’-начало игры 

360 С5Т(1)= 5 : С8Т(2)= Ю : С8Т(3)=20 : С8Т(4)=40 

370 С5Т(5)=70 : С8Т(6Н00 : С8Т(7)=130 

380 С8Т(8)=160 : С8Т(9)=200 

390 ЗСКЕЕИ ОД : ИЮТН 40 : СОЬОК 11.0,1 

400 КЕУ 0РР : ИЕР ЗЕ6=0 : РОКЕ 1047,32 

410 0Ь=0 : Ь=10 : 8Ь=3 : Р=0 : 8С=0 

420 0ЬЫМ=3 : ИРІС=0 : В0Ш8=1500 : В0№0=1500 : СЬЗ 

430 РОКЕ 1047,128 

440 ЬОСАТЕ 6,1 

450 РКШТ " Выберите скорость" 

460 РКШТ : РКШТ 

470 РКШТ '' 1 Детская" '256 

480 РКШТ " 2 Для начинающих" 128 

490 РКШТ " ЗЧІ Средняя" ' 64 

500 РКШТ " 5 Мастерская 1 ' 32 

510 РКШТ " 6 Гроссмейстерская" ' 16 

520 РКШТ " 7-9 Наибольшая' ' 8,4,21 

530 РКШТ 

540 РКШТ " 0 ВыйтЯ' 

550 РКШТ " 8 Звук 

560 ІР $N0=1 ТНЕЫ РКШТ ”вкл " ЕЬЗЕ РКШГ'выкл” 

570 РКШТ " Ь Уровень "; : РКШТ ЫРЩ" 

580 000=0 : ІР 08РЕЕ0 > 3 ТНЕЫ 600 ЕЬЗЕ 620 

600 ІР 08РЕЕ0 > 7 ТНЕИ 610 ЕЬЗЕ 000=1 

610 ІР 08РЕЕ0 > 8 ТНЕЫ 00І)=3 ЕЬЗЕ 000=2 

620 ЬОСАТЕ 08РЕЕ0-00ЕН8.8 : РКШТ 

630 СМІ)$=ШКЕУ$ : ІР СМ0$ = '*' ТНЕЫ СОТО 630 

дао СМ0=А8С(СМ0$) : ІР СМО = 48 ОК СМО=27 ТНЕЫ СОТО 1970 

650 ІР СМО =83 ОК СМ0=115 ТНЕЫ 5Ш=1-5\0 : СОТО 440 

660 '- мук - 

670 ІР СМО = 76 ОК СМ0=Ю8 ТНЕД С08І1В 3070 : СОТО 440 

680 1 -уровень- 

690 ІР СМО = 32 ТНЕЫ СМО=48+08РЕЕ0 : СОТО 710 
700 ІР СМО > 57 ОК СМІК48 ТНЕЫ СОТО 630 
710 8РЕЕІ)=СМ0-48 : ОЬУ=ОЬА(8РЕЕО) 

720 08РЕЕ0=8РЕЕ0 : КАШЮМІ2Е(1) : РОКЕ 1047,32 

730 РВЕ6=Р : ОЕР 8ЕС=&НВ800 

740 '-начало турнира- 
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750 Х1=1 : У1=0 : 8$=СНК$(205) : НХ=1 : НУ=1 : У2=0 : Х2=1 

760 ЕХ=1 : ЕУ=1 : ЬЕ=Ь : АР=0 : РХ(1)=2 : РУ(1)=24 

770 СЬЗ : СОЗЫВ 3560 : РМОѴ=Р 

780 '-рисуют поли- 

790 СОЬОК 3 : РОК К=1 ТО 23 : ЬОСАТЕ К.40 : РКШТ СНК$(210); 
800 ЫЕХТ К : РОКЕ 1918,210 : РОКЕ 1919,3 
810 РОК К=2 ТО 39 : ЬОСАТЕ 25,К : РКШТ СНК$(210); : NЕXТ К 
815 СОЗЫВ 1930 

820 СОЬОК 0,7 : СОЗЫВ 2200 : СОЬОК 13,0 

830 1 -ждет управления- 

840 РОК К=1 ТО ОЬУ 

850 А$=ШКЕУ$ : ІР А$0"" ТНЕN А=А5С(А$) : СОТО 880 
860 ЫЕХТ К 

870 ЬОСАТЕ НУ,НХ : РКШТ 3$; : СОТО 1060 

880 ЬОСАТЕ НУ,НХ 

890 ІР А=52 ТНЕЫ 900 ЕЬЗЕ 930 

900 ІР ХЮО ТНЕN РКШТ 3$; : СОТО 1060 

910 ІР Ѵ1= 1 ТІ^ РКШТ СНК$(220> ЕЬЗЕ РКШТ СНК$(219)! 

920 У1=0 : 3$=СНК$(205) : Х1=-1 : СОТО 1060 

930 ІР А=54 ТНЕЫ 940 ЕЬЗЕ 970 

940 ІР ХЮО ТИБЫ РКШТ 3$; : СОТО 1060 

950 ІР У1= 1 ТНЕN РКШТ СНК$(200> ЕЬЗЕ РКШТ СНК$(201> 

960 У1=0 : 3$=СНК$(205) : XI- 1 : СОТО 1060 

970 ІР А=50 ТНЕЫ 980 ЕЬЗЕ Ю10 

980 ІР УЮО ТНЕN РКШТ 3$; : СОТО 1060 

990 ІР Х1= 1 ТНЕК РКШТ СНК$(219); ЕЬЗЕ РКШТ СНК$(201); 

1000 Ѵ1= 1 : 5$=СНК$(218) : Х1= 0 : СОТО 1060 

1010 ІР А=56 ТНЕЫ 1020 ЕЬЗЕ 1050 

1020 ІР УЮО ТИБЫ РКШТ 5$; : СОТО 1060 

1030 ІР Х1-1 Т^ РКINТ СНК$(220); ЕЬЗЕ РКШТ СНК$(200)[ 

1040 Ѵ1=-1 : 5$=СНК$(218) : Х1= 0 : СОТО 1060 

1050 РКШТ 3$; : ІР А=27 Т1^ 1650 

1060 НХ=НХ+Х1 : НУ=НУ+У1 

1070 ІР НХ<1 ОК НХ>39 ОК НУ<1 ОК НУ>24 ТНЕИ СОТО 1580 
1080 3=8СКЕЕВДУ,НХ) 

1090 ІР 3015 ТНЕИ 1200 
1100 ЗС-ЗС+СЗТрЗРЕЕО) 
шо созыв 1930 : Ь=Ь+2 

1120 1 -—печать очков- 

ИЗО ІР 5№=1 ТНЕN 1140 ЕЬЗЕ 501ДОО 320004.5 : СОТО 1150 

1140 50ШО 100,1 : 501ШО 1000 г 5 

1150 СОЗЫВ 3210 : ІР АР<АРМАХ ТНЕN 1370 

1160 1 -убрать *- 

1170 ІР 5О=В0Ш5 ТНЕИ СОЗЫВ 2950 

1180 ^ІС-ЫРІС+1 

1190 СОТО 750 

1200 ІР 3032 ТНЕЫ 1580 

1210 ЬОСАТЕ НУ,НХ 

1220 ІР Ѵ1=0 ТНЕШ РКШТ СНК$(218> ЕЬЗЕ РКШТ СНК$(205); 
1230 1 -печать головы- 
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1240 ІР ЬЕ>1 ТНЕЫ ЬЕ=ЬЕ~1 : СОТО 1370 

1250 '- стирает хвост - 

1260 3=5СКЕЕ11(ЕУ,ЕХ) : ЬОСАТЕ ЕУ.ЕХ : РКШТ " “■ 

1270 ІР 3=218 ТНЕИ ЕУ=ЕУ+У2 : СОТО 1370 
1280 ІР 3=205 ТНЕЫ ЕХ=ЕХ+Х2 : СОТО 1370 

1290 ІР 3=219 ТНЕЫ ІР Х2= 1 ТНЕЫ Х2=0:У2= ЬЕУ=ЕУ+У2:60Т0 1370 
1300 ІР 3=219 ТНЕИ ІР Х201 ТНЕИ У2=0Д2=-1:ЕХ=ЕХ+Х260Т0 1370 
13Ю ІР 3=200 ТНЕМ ІР Х2=-1 ТНЕЫ Х2=0:У2=-1:ЕУ=ЕУ+Ѵ260Т0 1370 
1320 ІР 3=200 ТНЕЫ ІР ХЭо-1 ТНЕМ У2=0:Х2=1;ЕХ=ЕХ+Х200Т0 1370 
1330 ІР 3=220 ТНЕЫ ІР Х2= 1 ТНЕЫ Х2=Ю:У2=-1:ЕУ=ЕУ+Ѵ260Т0 1370 
1340 ІР 3=220 ТНЕЫ ІР Х201 ТНЕИ У2=0:Х2=-1:ЕХ=ЕХ+Х260Т0 1370 
1350 ІР 3=201 ТНЕЫ ІР Х2=-1 ТНЕИ Х2=0:У2= ЬЕУ=ЕУ+У260Т0 1370 
1360 ІР 3=201 ТНЕИ ІР Х20-1 ТНЕЫ У2=0:Х2=1;ЕХ=ЕХ+Х200ТО 1370 

1370 СОЬОК 12 '- движение - 

1380 РОК РЬ=1 ТО РМОѴ 

1390 ИРХ=РХ(РЬКРХ1(РЬ) : ЫРУ=РѴ(РЬ)<-РУ1(РЬ) «ЕМ РЬАСЕ 
1400 ІР ЫРХ<1 ОК ИРХ>39 ТНЕИ 32=200 ЕЬЗЕ 32=32 
1410 ІР ИРУ<1 ОК №У>24 ТНЕИ 81=200 ЕЬЗЕ 51=32 
1420 ІР 520200 ТИБЫ 82=5СКЕЕМ ЫРУ-РУЦРЬ), ИРХ ) 

1430 ІР 810200 ТНЕИ 51=ЗСКЕЕК( ЫРУ, ИРХ-РХЦРЬ) ) 

1440 ІР 5Ю 32 ОК 520 32 ТНЕИ СОТО 1470 
1450 53=5СКЕЕВД N97, \РХ ) 

1460 ІР 83032 ТНЕИ 51=200 : 52=200 

1470 ІР 51032 ТНЕИ РѴ1(РЬ)=-РѴ1(РЬ) : \РУ=РУ(РЬ)<-РУ1(РЬ) 

1480 ІР 52032 ТНЕИ РХ1(РЬ)=-РХХРЬ) : ЫРХ=РХ(РЬ>4-РХХРЬ) 

1490 ІР 51032 ОК 52032 ТНЕ\ 1540 
1500 ІР РЬ>РРШ ТНЕN СОЬОК 14 

15Ю ЬОСАТЕ РУ(РЦРХ(РЬ) : РКШТ " 

1520 ЬОСАТЕ №У«РХ : РКШТ Р$(РЬ)! 

1530 РХ(РЬ)=МРХ : РУ(РЬНІРУ 

1540 NЕXТ РЬ : СОЬОК 13 

1550 '- 

1560 СОТО 840 

1570 '-неудачное столкновение - 

1580 РОК К=ЮОО ТО 400 5ТЕР -50 
1590 СОЬОК „К МОБ 16 

1600 ІР $N0=1 ТНЕ\ 501ЖВ К.15 ЕЬЗЕ 50ГОГО 32000Д.5 
1610 №ХТ К 
1620 СОЬОК ,Д 

1630 5Ь=5Ь-1 : ІР 5О=В0№15 ТНЕ\ 605Ш 2950 
1640 ІР 8Ь>0 ТНЕК 605ТО 2270 : СОТО 750 
1650 СОЬОК 12,0,4 : СЬ5 : ЕХ=20 : НХ=20 : 3=2550 
1660 РОК НУ=1 ТО 25 

1670 ЬОСАТЕ НѴ,НХ : РКШТ СНК$(205)[ : 5=5-50 

1675 ІР 8ЮМ ТНЕ\ 501ЖВ 8Д 

1680 ЬОСАТЕ НУ,НХ : РКINТ СНК$(218)[ 

1690 NЕXТ НУ 

1700 РОК ЕУ=1 ТО 25 

1710 ЬОСАТЕ ЕУ,ЕХ : РКШТ " : 5=6-25 

1720 ІР $N0=1 ТНЕИ 50ШГО 5,1 
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1730 ЫЕХТ ЕУ 

1740 ЬОСАТЕ 12,18 : РКШТ ЗС 

1750 ІР $N0=1 ТНЕИ ЗОШВ -50Д : ЗОШГО 37,5 

1760 СОЬОК 15,0 : С0811В 2910 

1770 '-очистка буфера ввода- 

1780 ЬОСАТЕ 14Д5Д:РКІ1П' "Ваше шля? : 60511В 2780Х0САТЕ .0 
1790 ГР РВЕСоО ТНЕЫ СОТО 1810 
1810 ІР ШЕЗ-” ТНЕМ 390 

1820 СОЬОК 120 : СЬЗ : 60511В 2320 : СОЬОК 15,0 : С0511В 2200 
1825 СОТО 390 

1630 1 - нарисовать игровое поле- 

1840 СОЬОК 11 

1850 РОК ЬР=5 ТО 19 

1860 ЬОСАТЕ ЬР.РЗ 

1870 ІР 0Ь=1 ТНЕЫ Ь8=9 ЕЬЗЕ Ь5=4 

1873 РКШТ СНК$(218);5ТКШ6$(Ь5,32);СНК$(218); 

1880 ЫЕХТ ЬР 

1890 ЬОСАТЕ 12.Р5 

1900 ІР БЬ=1 ТНЕЫ Ь5=9 ЕЬЗЕ Ь5=4 

1903 РКШТ СНК$(206);5ТКШ6$(Ь5,205);СНК$(206); 

1910 Р5=Р5+5 : КЕТЦКИ 

1920 '-печатать очки- 

1930 СОЬОК 3,0 : ЬОСАТЕ 25Д4 : РКШТ 5С;5ТКШ6$(5,2Ю*8Ь; 

1940 ЬОСАТЕ 25, 1 : РКШТ ЫРІС; 

1950 5РЕЕІ)$=СНК$(І)5РЕЕІ>*48) : ЬОСАТЕ 1,40 

1951 РКШТ ЗРЕЕІ»; : СОЬОК 13,0 : КЕТШШ 

1960 1 -завершение программы- 

1970 ШВТН 80 : СОЬОК 7 : ОЕР 5Е6 =0 : РОКЕ 1047, 128 : ЕШ) 

1980 1 -расставить пчел 

1990 Р=ЫРІС\3 : БЬ=МРІС МОО 3 : АРМАХ=5 

2000 Р5=1/(ОЬ+1)*40 

2010 ІР ОЬ=1 ТНЕМ 605Ш 1840 

2020 ІР М>1 ТНЕЫ РОК К=1 ТО ОЫ-1 : 605Ш 1840 : МЕХТ К 
2030 Р$(1)=СНК$(235) 

2040 РХ1(1)=1 : РУЦ1М 

2041 ІР Р>0 ТНЕЫ СОЬОК 12,0 : ЬОСАТЕ РУ(ЦРХ(1) : РКШТ Р$Й! 
2050 ІР Р>5 ТНЕЫ РРШ=5 ЕЬЗЕ РРШ=Р 

2060 РОК К=2 ТО РРШ : РХ(КН+(К-1)*ШТ(38/(РРШ--1))РУ(К)=24 
2070 Р$(К)=СНК$(235) : РХ1(К)=-1+2*ШТ(КЩХК.5) :РУ1(К)=-1 

2080 ЬОСАТЕ РУ(К),РХ(К) : РКШТ Р$(Кк : ЫЕХТ К 
2090 РРШ=5 

2100 РОК К=РРШ+1 ТО РЫМ 

2П0 Р$(К)=СНК$(15) : РУ(К)=ІКТ(КШ)*22+2) 

2Ш РХ(К)=ШТ(К№>*3&4-1) : 81=ЗСКЕЕ\(РѴ(К),РХ(К)) 

2120 ІР 51=206 ОК 51=15 ОК 51=235 ТНЕЫ СОТО 2110 
2130 СОЬОК 14 : ЬОСАТЕ РУ(К*РХ(К) : РКШТ Р$(К); 

2140 РХ1(К)=-1+2*ШТ(КШ(Х)к5) : РУІ(К)=-1+2*ШТ(КЩХ)н5) 

2150 МЕХТ К 

2160 0ЬѴ=0ЬА(05РЕЕ0) 

2170 РОК 1=1 ТО Р : 0ЬУ=ШТ(0ЬУ/15) : ЫЕХТ I 


10. Зак. 
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2171 ІР РЬУ<1 ТНЕЫ БЬУ=1 
2180 КЕТІ1КЦ 

2190 '-подождать нажатия пробела 

2200 Г-О САТЕ 1,12 : РКШТ "Нажмите Пробел 

2210 А$=ШКЕУ$ 

2220 ІР А$=СНК$(27) ТНЕИ КЕТШШ 1650 
2230 ІР А$0" " ТНЕЫ СОТО 2210 
2240 СОЬОК ,0 : ЬОСАТЕ 1Д2 : РКШТ " 

2250 КЕТИКЫ 

2260 'подождать нажатия пробела после неудачного столкновения 
2270 СОЬОК 0,7 : ЬОСАТЕ 1,12 : РКМТ "Нажмите пробел : С=0 
2279 А$=ШКЕУ$ 

2281 ІР А$=" " ТНЕИ 2290 

2282 СОЬОК „С МОИ 16 : С=С+1 : 301ЖР 32000Д.5 : СОТО 2279 
2290 СОЬОК ,0,1 : ЬОСАТЕ 1,12 : РКШТ " 

2300 КЕТІЖЦ 

2310 ’-НАИЛУЧШИЙ РЕЗУЛЬТАТ 

2320 Ой ЕККОК СОТО 2760 : Ц0Т0Р=0 
2330 ІР К5С0КЕ(1>О0 ТНЕИ СОТО 2420 
2340 ОРЕИ "ЗЕКРЕЦТ.ЦАТ' РОК ШРОТ А5 #1 
2350 ІР №Т0Р=1 ТНЕЦ СОТО 2400 
2360 РОК 1=1 ТО 20 

2370 МРОТ #1^МЕ$(І),М8С0КЕ(І),АЗС0КЕ(ІРЗС0КЕ(І) 

2380 ЦЕХТ I : СЬОЗЕ #1 

2390 СОТО 2420 

2399 РОК 1=1 ТО 20 : НМЕ$(І)=" 

2400 МЗСОКЕ(ІН) : АЗС0КЕ(І)=0 : Ц5С0КЕ=0 
2410 НЕХТ I 

2420 СОЗЫВ 2680 : Р=0 : ЗИ=10 
2430 РОК 1=1 ТО 20 

2440 ІР ШЕ$=™Е$(і) ТНЕИ Р=І : СОТО 2460 
2450 ЦЕХТ I 

2460 ІР Р = О ТНЕЦ СОТО 2530 

2470 '-ШЕ$ НАХОДИТСЯ В ТАБЛИЦЕ 

2480 ІР ЗОМЗСОКЕ(Р) ТНЕЦ МЗС0КЕ(Р)=ЗС 

2489 ІР ЦЗС0КЕ(Р)>=ЗЦ ТНЕИ 2500 

2490 АЗСОКЕ(Р)=АЗСОКЕ(Р)<-ЗС : ЦЗС0КЕ(Р)=ЦЗС0КЕ(Р)<-1 

2495 СОТО 2520 

2500 ІР ЗС< АЗС0КЕ(Р)/Ц5С0КЕ(Р) ТНЕЦ ОШ)=107 ЕЬЗЕ РОО=.93 

2510 АЗСОКЕ(Р)=АЗСОКЕ(Р)*( ЦЗС0КЕ(РНШЦ )Ш5С0КЕ(Р) + ЗС 

2520 СОТО 2550 

2530 '- ЫМЕ$ НЕ НАХОДИТСЯ В ТАБЛИЦЕ 

2540 АЗС0КЕ(21)=ЗС : ЦЗСОКЕ(21Н : Р=21 

2541 ШЕ$(21)=ЦМЕ$ : МЗС0КЕ(21)=ЗС 
25р0 РОК 1= Р ТО 2 ЗТЕР -1 

2560 ІР М5С0КЕД) <= МЗСОКЕД-1) ТНЕИ СОТО 2600 
2570 ЗИАР МЗС0КЕД),МЗС0КЕД-1) : ЗИАР ЦМЕ$(ІХНМЕ$Д-1) 

2580 ЗИАР М5С0КЕ(1)ДОЗС0КЕ(1-1) : ЗИАР АЗСОКЕЩАЗСОЩЫ) 
2590 ЦЕХТ I 
2600 ' 
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2610 ШТ0Р=0 : (Ж ЕККОК СОТО 2760 
2620 ОРЕN "ЗЕКРЕМТ.БАТ" РОК ОСТРИТ АЗ #1 
2630 ІР ШТ0Р=1 ТНЕЫ СОТО 2680 
2640 РОК 1=1 ТО 20 

2650 РКШТ#1,™е$(ІУ7';М5СОКЕ(ІГ,";А5СОКЕ(і)[","; 

2655 РКШТ#:Ш5С0КЕ(І) 

2660 ЫЕХТ I : СЬОЗЕ : 005ИВ 2680 

2670 КЕТИКИ 

2680 ЬОСАТЕ 4,1 

2690 РОК 1=1 ТО 20 

2700 ЬОСАТЕ ,7 

2710 ГР КЗС0КЕ(Г) = О ТНЕЫ СОТО 2740 

2720 РКШТ И5ШС"## \ \ #####";І,ШЕ$(І),МЗС0КЕ(І); 

2730 РКШТ И5Ш0" #####"-,А5СОКЕ(І)\Н5СОКЕ(І) 

2740 ЫЕХТ I 
2750 КЕТИКЫ 

2760 ттор=і 

2770 КЕЗЦМЕ ЫЕХТ 
2780 ШЕ$-" 

2790 А$=ШКЕУ$ : ІР А$=”’ ОК А$=" " ТНЕN СОТО 2790 

2799 А=АЗС(А$) 

2800 ІР А>96 А№ А<123 ТНЕЫ А$=СНК$(А-32) : СОТО 2640 
2810 ІР А>159 АШ А<192 ТНЕЫ А$=СНК$(А-32) 

2820 ІР Ао8 ТНЕЫ 2830 

2821 ЬК=ЬЕІІ(ШЕ$) 

2822 ІР ЫІ<=0 ТНЕЫ 2790 

2823 ШЕ$=ЬЕРТ$(ШЕ$,ЬМ-1) : РКШТ СНК$(29>" ";СНК$(29)[ 

2824 СОТО 2790 

2830 ІР А=13 ТНЕЫ КЕТШШ 

2640 ШЕ$=ШЕ$+А$ : РКШТ А$; : СОТО 2790 

2850 ЗСКЕЕИ ОД : РОК 1=0 ТО 15 

2860 РОК Д=0 ТО 15 

2870 СОЬОК І,Д : РКШТ С5Ш0"#Г;І; 

2880 ЫЕХТ Д : РКШТ 
2890 ЫЕХТ I 

2900 -ОЧИСТИТЬ БУФЕР ВВОДА 

2910 РОК СЬ=1 ТО 400 : А$=ШКЕУ$ : ЫЕХТ СЬ 
2920 ІР ШКЕУ$0"' ТНЕЫ СОТО 2920 
2930 КЕТШШ 

2940 '- УСТАНОВКА ПРЕМИИ 

2950 С 0=12 

2960 В0Ш5=В0МИ8+В0\АИ 
2970 РОК В0Ы=1 ТО 6 

2980 ГР 51ГО=1 ТНЕШ ЗОИШ 440,5 ЕЬЗЕ бОИИИ 32000, 5 
2990 ІР В0\=6 ТНЕЫ 5Ь=5Ь+1 

3000 СОЬОК 3,0 : ЬОСАТЕ 25Д4 

3001 РКШТ ЗС;ЗТКШ0$(5,2Ю)! : СОЬОК 12 : РКШТ ЗЬ; 

ЗОЮ ЗОШБ 32000, 5 

3020 СОЬОК 3,0 : ЬОСАТЕ 25,14 

3021 РКШТ 5С;5ТКШ0$(5,210); : СОЬОК 3 : РКШТ ЗЬ; 
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3030 иехт воы 

3040 ІР 8ЫІ)=1 ТНЕЫ 50Щ0 37,5 ЕЬЗЕ ЗОТОВ 32000,5 
3050 КЕТІШ 

3060 '-УСТАНОВКА НАЧАЛЬНОГО УРОВНЯ 

3069 ЬОСАТЕ 18, 23, 1 

3070 605ИВ 3120 : Р=ЫЦМ\3 : ОЬ=ШМ МОБ 3 : КРІС=ШМ 
3080 ІР Р>РЫМ ТНЕЫ Р=РЫМ 

3090 Ь=10+КРІС*Ю 
3100 КЕТОТО 

3110 '-ВВОД ПОЛОЖИТЕЛЬНОГО ЧИСЛА 

3120 ІШМ$="" 

3129 ЬОСАТЕ 18, 23, 1 

3130 РКШТ "? ";СНК$(29)[СНК$(29);СНК$(29)[ 

3140 А$=ШКЕУ$ : ІР А$="" ОК А$=" " ТНЕЫ СОТО 3140 
3150 А=АЗС(А$) 

3160 ІР А=8 ТНЕЫ 3161 ЕЬЗЕ 3170 

3161 ЬК=ЬЕІІ(ШМ$) 

3162 ІР Ь№Ю ТНЕИ 3163 ЕЬЗЕ СОТО 3140 

3163 ШМ$=ЬЕРТ$(ШМ$,ЫІ-1) : РКШТ СНК$(29);" ”;СНК$(29); 

3164 СОТО 3140 

3170 ІР А=13 ТНЕЫ ЬОСАТЕ „О : ШМ=ѴАЬ(ШМ$) : КЕТИКИ 
3180 ІР А>57 ОК А<48 ТНЕИ СОТО 3140 
3190 ШМ$==ЖТМ$+А$ : РКШТ А$; : СОТО 3140 

3200 '-УНИЧТОЖИТЬ ПЧЕЛУ 

3210 Р=0 : РОК І=РРІ№-1 ТО РЫМ-АР 

3220 ІР НУ=РѴ(І) А№ НХ=РХ(І) ТНЕИ Р=І : СОТО 3240 

3230 ИЕХТ I 

3240 ЗИАР РУ(Р),РУ(РЫМ-АР) : 5ИАР РХ(РХ РХ(РЫМ-АР) 

3250 АР=АР+1 

3280 ІР РЫМ-АР < РМОѴ ТНЕЫ РМ0Ѵ=РЬІМ-АР 
3270 КЕТИКЫ 

3280 МРІЬ$=ЗТК$(ИРІС) : ЬРІЬ=ЬЕВДРІЬ$) 

3281 МРІЬ$=КІ6НТ$(КРІЬ$,ЬРІЬ-1) 

3290 КРІЬ$-’8 егр"+КРІ Ь$+".<1а1" : ОИ ЕККОК СОТО 3600 
3300 ОРЕЫ ИРІЬЗ РОК ШРОТ АЗ #1 

3310 ЬЬШ=0 : ЬОСАТЕ 1,1 : КЬШ=1 : АР=0 : Р=0 : СОЬОК 3 
3320 ІР Е0Р(1) ТНЕИ 3510 
3330 А$=ШРИТ$(1,#1) : А=АЗС(А$) : ЬЬШ=ЬЫ№-1 
3340 ІР АОІЗ ТНЕИ 3370 

3350 ІР ЬЫМС40 ТНЕЫ РОК ЬЬШ=ЬЬШ ТО 39 : РКШГ :ИЕХТ ЬЬШ 

3359 КЬШ=КЬШ+1 : ЬЬШ=0 

3360 ІР ІІЬШ>24 ТНЕИ СОТО 3510 ЕЬЗЕ РКШТ : СОТО 3320 
3370 ІР А=10 ТНЕИ ЬЬШ=ЬЬШ-1 : СОТО 3320 

3380 ІР Ао15 ТНЕЫ 3420 

3390 РУ(РЫМ-АР)=КЫК : РХ(РЫМ-АР)=ЬЬШ 

3400 РУ1(РЫМ-АР)=-1+2*ШТ(К\ЕК5) 

3401 РХ1(РЫМ-АР)=-Ь-2*ШТ(КНЕН-.5) : АР=АР+1 

3410 СОЬОК 14 : РКШТ А$; : СОЬОК 3 : СОТО 3320 
3420 ІР АОЗб ТНЕИ 3440 

3430 НУШЬШ : НХ=ЬЬШ : РКШТ " : СОТО 3320 
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3440 ІР А0235 ТНЕЫ 3470 

3450 Р=Р+1 : Р$(Р)=А$ : РУ(Р)=Ш,Ш 

3451 РХ(Р)=ЬЬШ : СОЬОК 12 : РКШТ А& : СОЬОК 3 

3460 РУ1(Р)=-И-2*ШТ(КМ>.5) 

3461 РХ1(Р)=-:Ъ-2*ШТ(К№>.5) : СОТО 3320 
3480 ІР ЬЫ№с40 ТНЕЫ РКШТ А$; : СОТО 3320 

3490 А$=ШРЦТ$(1,#1) : А=АЗС(А$) 

3491 ІР А=13 ТНЕИ 3340 ЕЬЗЕ 3490 
3500 СОТО 3320 

3510 СЬОЗЕ #1 : АРМАХ=АР : АР=0 : РРШ=Р : ЕХ=НХ : ЕУ=НУ 
3520 0ЬУ=0ЬА(08РЕЕ0) 

3530 РОК 1=1 ТО Р : 0ЬУ=ШТ(ВЬУ/15) : ИЕХТ І 

3531 ІР 0ЬУ<1 ТНЕЫ 0ЬУ=1 

3540 ІР ЛЬШ >=25 ТНЕИ 3550 

3541 РОК КЬШ=1ЯЬШ ТО 24 : ЬОСАТЕ НЬВДІ : РКШТ 5РС(39); :МЕХТ 
3550 КЕТОКЫ 

3560 - ВЫБРАТЬ КАРТИНКУ ПОЛЯ 

3570 СОЗІІВ 3280 : СОТО 3590 'ЧИТАТЬ КАРТИНКУ ИЗ ФАЙЛА 
3580 СОЗиВ 1990 ЕСЛИ ФАЙЛА НЕТ.ТО РИСОВАТЬ КАРТИНКУ 

3590 КЕТШШ 
3600 КЕЗІШЕ 3580 


Листинг 36 


1 КЕМ От одного до десяти 

2 КЕМ ІВМ РС ВА5ІСА 

3 КЕМ Автор - ГТнездилова 

5 КАШ0МІ2Е (ѴАЬ(КІСНТ$(ТІМЕ$,2))) 

10 КЕУ ОРР: СЬ5 
20 ЗСКЕЕИ 2 ЬОСАТЕ ІОДО 
30 \=ШТ(КЩ1)*9К1 
40 ІР N=N1 ТНЕИ 30 
50 

60 РКШТ "Какое число идет после 

70 ШРЦТ АИ5 

80 ІР АИ8=0 ТНЕЫ Е№ 

90 ІР АМ8=Ш ТНЕЫ СОЗЦВ 200: СОТО 20 
100 РКШТ "Ответ неправильный.": СОТО 60 
190 КЕМ Подпрограмма - приз 
200 ЗСКЕЕИ 1 
210 РОК 1=1 ТО 10 

220 Х1=ШТ(КШй)*320) Х2=ШТ(КНВД*320) 
230 У1=ШТ(Кт)Ш*200): У2=ШТ(КЩ1)*200) 
240 С=ШТ(КМ>(1)*3}<-1 
250 Ы\Е(Х1.У1)-(Х2,У2),С,ВР 
280 ИЕХТ 

270 РОК 1=1 ТО 1000: ИЕХТ 
280 КЕТОКЫ 
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Листинг 37 


1 КЕМ Таблица умножения 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Адаптация - ГГнеэдилова 
5 С=0 

10 РОК Х=1 ТО 10 
20 РОК Ѵ=1 ТО 10 
25 №=0 

30 РКШТ "Сколько будет У;” умножить на ”;Х 
35 ШРОТ 6 

40 ІР 6=У*Х ТНЕЫ 005Ш 150: РКШТ АІ- СОТО 105 
42 ІР И=1 ТНЕЫ ООЗиВ 200: РКШТ А$: СОТО 110 
45 Н=И+1 

50 РКШТ "Попробуем еще раа" 

55 СОТО 30 
105 С=С+1 
НО ЫЕХТ У 
115 РКШТ 
120 ЫЕХТ X 

130 ШРІІТ 'Было дано ,| ; С;” правильных ответов." 

135 СОТО 999 

150 Р=ШТ(РЫІЭ(1)*5)і-1 

160 РОК 1=1 ТО К 

170 КЕАИ А$ 

180 ЫЕХТ I 

190 КЕЗТОКЕ 

195 РЕТОРЫ 

200 К=ШТ(КЩ1)*5И 

210 РОК 1=1 ТО 5+К 

220 КЕАО А$ 

230 ЫЕХТ I 
240 КЕЗТОКЕ 
250 КЕТОНЫ 

300 РАТА "Верна", "Прекрасна", "Хороша" 

310 РАТА "Молодец.", "Отлична" 

320 ЦАТА "Неправильно", "Плоха", "Неверна" 

330 БАТА "Ну что же ты?", "Нет." 

999 БЫР 


Листинг 38 

1 КЕМ Тренировка в устном счете 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Адаптация - ОГончаров, Г.Сенин 
10 СБЗ 

20 КЕУ ОРР 
30 Х=К№0) 

40 ЬОСАТЕ 10Д 

42 РКШТ 'ЭЙ, ТЫ, ПРИВЕТ! МЕНЯ ЗОВУТ АЛГЕБР МУДР."; 

43 РКШТ " А КАК ЗОВУТ ТЕБЯ"; 
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45 ШРОТ Л$ 

50 РКШТ 

60 РКШТ N$1", ДАВАЙ ИГРАТЬ В ЧИСЛА." 

70 РКШТ 

80 ШРОТ "НУЖНА ИНСТРУКЦИЯ Щ-ДА ИЛИ Н-НЕТ) ";Ѵ$ 

90 ІР ЬЕРтеО^ДНЯ" ТНЕИ 210 

95 ІР ЬЕРТ$(Ѵ$ДН’н” ТНЕИ 210 

96 ІР ЬЕРТ$(У$Д)=Ш" ТНЕИ 210 
98 ІР ЬЕРТ$(У$ДКп” ТНЕИ 210 

100 РКШТ "Я БУДУ ДАВАТЬ ТЕБЕ ЗАДАЧИ НА СЛОЖЕНИЕ, ВЫЧИТАНИЕ,"; 

101 РКШТ " УМНОЖЕНИЕ ИЛИ ДЕЛЕНИЕ." 

110 РКШТ "А ЕСЛИ ЗАХОЧЕШЬ - ПОНЕМНОГУ НА КАЖДОЕ ДЕЙСТВИЕ'; 

120 РКШТ 

130 РКШТ "НАЖМИ ЦИФРУ 
140 РКШТ ”1 ДЛЯ СЛОЖЕНИЯ" 

150 РКШТ "2 ДЛЯ ВЫЧИТАНИЯ" 

160 РКШТ "3 ДЛЯ УМНОЖЕНИЯ" 

170 РКШТ "4 ДЛЯ ДЕЛЕНИЯ" 

180 РКШТ ”5 ДЛЯ СМЕШАННОЙ АРИФМЕТИКИ" 

190 РКШТ 

200 РКШТ 'КОГДА ТЫ ЗАХОЧЕШЬ ПРЕРВАТЬ ИГРУ, НАБЕРИ 999" 

210 РКШТ 'В КАЧЕСТВЕ ОТВЕТА НА ОЧЕРЕДНУЮ ЗАДАЧУ,"; 

205 РКШТ "И Я ПОКАЖУ ТЕБЕ ТВОЙ РЕЗУЛЬТАТ. НЕ ЗАБЫВАЙ"; 

206 РКШТ "НАЖИМАТЬ КЛАВИШУ ВВОД’ ПОСЛЕ КАЖДОГО ОТВЕТА." 

210 РКШТ 

220 ШРОТ "ЧТО ТЫ ВЫБИРАЕШЬ 0,2,3,4,57’; Т 
230 РКШТ 

240 РКШТ 'КАКОЕ НАИБОЛЬШЕЕ ЗНАЧЕНИЕ Я МОГУ ПРИСВОИТЬ” 

245 ШРОТ "ПЕРВОМУ ЧИСЛУДО : ШРОТ "ВТОРОМУ ЧИСЛУ;Р 
250 РКШТ 

280 ШРОТ "НАЖМИ ЛЮБУЮ БУКВУ; К$ 

285 ІР ЬЕМ(К$)01 ТНЕИ РКШТ 'ЭТО, КАЖЕТСЯ, НЕ БУКВА” : СОТО 280 
290 РКШТ 

ЗОО РОК 1=1 ТО АЗС(К$) 

310 К1=КШ(1) 

320 ИЕХТ I 

330 ІР Т<5 ТНЕИ 360 

340 С=1 

350 Т=ШТ(4*КМГ>(1}И) 

360 А=А+1 

370 Х=ШТ№1)»РШ(ѴАЬ(МІО$(ТІМЕ$,4,2)))>.ІР ХШ ТНЕИ 370 
380 У=ІИТ((Р+1)*КМ0(ѴАЬ(МІ0$(ТІМЕ$,4,2)))>ІР У>Р ТНЕИ 380 
390 ОИ Т СОТО 400,440,520,560 
400 КЕМ СЛОЖЕНИЕ 
410 21=Х+У 

420 РКШТ АЛ ";Х,-"+”;Ѵ;"="; 

430 СОТО 640 
440 КЕМ ВЫЧИТАНИЕ 
450 ІР Х>У ТНЕИ 490 
460 Х1=У 
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470 У=Х 
480 Х=Х1 
490 21=Х-Ѵ 

500 РКГОТ а,' 1 . 'Ж'-";У;"=Л 

510 СОТО 640 

520 КЕМ УМНОЖЕНИЕ 

530 21=Х*Ѵ 

540 РКГОТ АЛ 

550 СОТО 640 

560 КЕМ ДЕЛЕНИЕ 

570 ІР Х>0 ТНЕИ 600 

580 Х=У 

590 У=0 

600 Ь=Х*У 

610 21=У 

620 РКГОТ А;". 

630 КЕМ ВВОД ОТВЕТА 
640 ГОРИТ 2 
650 ХР 2=999 ТНЕИ 900 
660 ІР 2=21 ТНЕИ 770 
670 КЗ=КЩ0) 

680 ІР К3>.333 ТНЕИ 710 

690 РКГОТ:РКГОТ "ЖАЛЬ, ПОВТОРИ-КА ЕЩЕ РАЗ, ";Н$:РКГОТ 
700 СОТО 750 

710 ІР К3>.6670001 ТНЕИ 740 
720 РКГОТ 

722 РКГОТ "Я УВЕРЕН, ЧТО ТЫ МОЖЕШЬ ОТВЕТИТЬ ЛУЧШЕ" 

724 РКГОТ 
730 СОТО 750 

740 РКГОТ:РКГОТ "НУ-КА, СОБН’ИСЬЛРКГОТ 
750 Р=1 

760 ОИ Т СОТО 420,500,540,620 
770 К2=КНГ)(0) 

780 ІР К2>.333 ТНЕИ 810 

790 РКГОИРКГОТ "ПОЗДРАВЛЯЮ, ";М$:РКГОТ 

800 СОТО 850 

8Ю ІР К2> .6670001 ТНЕИ 840 

820 РКШТ:РКГОТ 'ОЧЕНЬ ХОРОШО, ”;Н$:РКГОТ 

830 СОТО 850 

840 РКГОТ:РКГОТ 'ЗДОРОВО. ПРОДОЛЖАЙ В ТОМ ЖЕ ДУХЕ "ДОіРКГОТ 
850 ІР Р=1 ТНЕИ 670 
860 В=В+1 
870 Р=0 

880 ІР С=1 ТНЕИ 350 
890 СОТО 360 

900 РКГОТіРКГОТ "НАДЕЮСЬ,ЕЩЕ УВИДИМСЯ, ";!<$ 

910 А=А-1 
920 С=А-В 
930 В=ГОТСЮО*В/А) 

940 РКГОТРКГОТ 
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950 РКШТВСЕГО ЗАДАЧ ";А 
960 РКШТ 

970 РКШТ'ПРАВИЛЬНЫХ ОТВЕТОВ: ";В 
980 РКШТ 

990 РКШТОШИБОЧНЫХ ОТВЕТОВ: ";С 
1000 РКШТ 

1010 РКШТ'ДОЛЯ ПРАВИЛЬНЫХ .ОТВЕТОВ: 
1020 ЕШ 


Листинг 39 


1 КЕМ Сложи 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ (С) СгеаЫѵе СоириЫпе 

4 КЕМ Адагггация - ОГончаров 
80 ЦЦМ8=9 

90 ШМ А(ШМЗ), 0{4\ 1)(Ы0М8) 

100 КАИ2=0 
110 РКШТ 
150 РКШТ 
160 РКШТ 

170 РКШТ "НУЖНА ИНСТРУКЦИЯ (ДА.НЕТ)? 

180 К$=ШКЕѴ$ : ІР К$^" ТНЕИ КАЦ2=(КАМ2+Ц МОБ 32000 :ВОТО 180 
182 РКШТ К$ 

185 КАОТЮМІ2Е( КАЛ2 ) 

190 ІР ЬЕРТ$(К$Д) = 'ТТ ТНЕИ 340 
200 ІР ЬЕРТ$(К$Д) О ’Д” ТНЕИ 170 

210 РКШТ "ИМЕЕТСЯ ДОСКА С 9 ЧИСЛАМИ: 12345678 9" 

220 РКШТ 

250 РКШТ "ВАМ БУДУТ ПОКАЗЫВАТЬСЯ ОСТАЮЩИЕСЯ 
252 РКШТ "НА ДОСКЕ ЧИСЛА." 

280 РКШТ "СНИМАЙТЕ С ДОСКИ ПО НЕСКОЛЬКУ ЧИСЕЛ 

281 РКШТ "(НЕ БОЛЬШЕ 4 ЗА ОДИН РАЗ)." 

282 РКШТ "ЧИСЛА, КОТОРЫЕ ВЫ СНИМАЕТЕ, ДОЛЖНЫ В СУММЕ ДАВАТЬ"; 
290 РКШТ " ПРЕДЪЯВЛЯЕМУЮ ВАМ СВЕРТКУ." 

292 РКШТ 'ВЫ ПОБЕЖДАЕТЕ, ЕСЛИ СНИМАЕТЕ ВСЕ ЧИСЛА"; 

300 РКШТ " С ДОСКИ." 

302 РКШТ 'ВЫ ПРОИГРЫВАЕТЕ, ЕСЛИ НЕ МОЖЕТЕ СНЯТЬ" 

310 РКШТ " НИ ОДНОГО ЧИСЛА ПО ПРЕДЪЯВЛЕННОЙ СВЕРТКЕ" 

320 РКШТ 
340 РКШТ 
345 РКШТ 

350 РКШТ 'ВОТ ДОСКА " 

360 КЕМ - УСТАНОВИТЬ ДОСКУ 

370 РОК В=1 ТО ШМ8 
360 РКШТ В; 

390 А(В)=В 
400 ИЕХТ В 
405 РКШТ 

410 С=ШТ(КЩ1)*6Ы})-1МТ(КЩ1)*6+1) НАЧАЛО ОСНОВНОГО ЦИКЛА 
420 РКШТ "ВОТ СВЕРТКА ",С 
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430 Т=0 
435 Л=0 

440 РОК Х=1 ТО (ІШ8 

445 ІР А(Х) < 1 ТНЕМ 460 

446 Л<Г+1 'КОЛИЧЕСТВО ОСТАВШИХСЯ ЧИСЕЛ 

447 ЩЛ)=А(Х) В=МАССИВ ОСТАВШИХСЯ ЧИСЕЛ 

450 Т=Т+А(Х) ТСУММА ОСТАВШИХСЯ ЧИСЕЛ 

460 ИЕХТ X 

465 КЕМ - ПРОВЕРКА ПРОИГРЬИПА 

470 ІР ОТ ТНЕИ 950 

480 ІР С=Т ТНЕИ 1120 

490 РОК К=1 ТО 3 

495 ІР С=1)(К) ТНЕИ 680 

500 РОК Ь=1 ТО 3 

502 ІР Ь=К ТНЕИ 650 

504 ір с=и(к)нед тнеи ббо 

510 РОК М=1 ТО 3 

512 ІР М=К ТНЕИ 640 

514 ІР М=Ь ТНЕИ 640 

516 ІР С^КН^ЬКОД ТНЕИ 680 

520 РОК N=1 ТО 3 

530 ІР N=41 ТНЕИ 630 

540 ІР N=1, ТНЕИ 630 

550 ІР Л=М ТНЕИ 630 

620 ІР С^КИДЬИХМНВД ТНЕИ 680 

630 ИЕХТ N 

640 ИЕХТ М 

650 ИЕХТ Ь 

660 ИЕХТ К 

670 СОТО 950 ПРОИГРЫШ НЕИЗБЕЖЕН 

680 РОК Х=1 ТО 4 ВОЗМОЖЕН ВЫИГРЬИИ 

690 ГНХ)=0 
700 ИЕХТ X 

710 РКШТ 'СКОЛЬКО ЧИСЕЛ БУДЕТЕ СНИМАТЬ"; 

720 ШР11Т Е 

730 ІР ШТ(Е)оЕ ТНЕК 760 'ПРОВЕРКА КОРРЕКТНОСТИ ВВОДА 

740 ІР Е<1 ТНЕИ 760 
750 ІР Е>4 ТНЕИ 760 
755 СОТО 770 

760 РКШТ 'ОТВЕЧАЙТЕ. 1 2, 3 ИЛИ 4" 

765 СОТО 710 

770 РКШТ"КАКОЕ ЧИСЛО' 

780 РОК Р=1 ТО Е 
790 шрит ГНР) 

800 0=ІХР) 

805 ІР А(0) О О ТНЕИ 825 

810 РКШТ "ЕГО УЖЕ НЕТ НА ДОСКЕ, ПОВТОРИТЕ ВВОД' 

820 СОТО 710 
825 ИЕХТ Р 

830 ІР С о 0Э(1КГ)(2>Ю(3>Ю(4)) ТНЕИ 870 
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835 РОК Р=1 ТО Е ОТМЕТИТЬ СНЯТЫЕ С ДОСКИ ЧИСЛА 

840 А(ЕКР)>=0 

650 ИЕХТ Р 
860 60Т0 880 

870 РКШТ 'ЭТИ ЧИСЛА НЕ СКЛАДЫВАЮТСЯ В СВЕРТКУ, 

872 РКШТ "ПОВТОРИТЕ ЕЩЕ РАЗ" 

875 СОТО 710 

880 РКШТ 'ВОТ ЧИСЛА, КОТОРЫЕ ВАМ ОСТАЛОСЬ СНЯТЬ" 

890 РОК В=1 ТО ШМЗ 
900 ІР А(В)=0 ТНЕИ 920 
910 РКШТ А(В); 

920 ШХТ В 
930 РКШТ 
940 СОТО 410 

950 РКШТ "УВЫ, НА ЭТОТ РАЗ ВЫ ПРОИГРАЛИ.” 

960 ТО 

970 РОК В=1 ТО ШМЗ 
960 ІР А(ВН> ТНЕИ 1000 
990 Т=Т+1 

1000 ИЕХТ В 

1010 РКШТ "НА ДОСКЕ ОСТАЛОСЬ ";Т ЧИС; 

1011 ІР Т=1 ТНЕИ РКШТ "ЛО'; 

1012 ІР Т>=2 АШ Т<=4 ТНЕИ РКШТ "ЛА”; 

1013 ІР Т>=5 АШ Т<=9 ТНЕИ РКШТ "ЕЯ'; 

1019 РКШТ 

1020 РОК Х=1 ТО ШМ5 

1030 ІР А(Х)0 ТНЕИ 1050 
1040 РКШТ А(Х)е 

1050 ИЕХТ X 
1060 РКШТ 
1070 СОТО 1140 

1120 РКШТ ТАВ(15)Г*** ПОЗДРАВЛЯЕМ***' 

ИЗО РКШТ ТАВ(25)Г* ВЫ ГО БЕД ИЛИ *' 

1140 РКШТ 
1150 РКШТ 

И60 РКШТ "СЫГРАЕТЕ ЕЩЕ РАЗ ( Ѵ-ДА/ШНЕТГ'; 

1170 ШРІІТ Н$ 

1180 ІР ЬЕРТ$(Н$ДКѴ' ТНЕИ 170 
1190 ІР ЬЕРТ$(Н$Д)о"Я" ТНЕИ 1160 
1200 ЕШ 


Листинг 40 


1 КЕМ Системы счисления 

2 КЕМ ІВМ РС ВА8ІС 

3 КЕМ (С) Сгеаііѵе СотриІігщ 

4 КЕМ Адагггация - ГГнеэдилова 

10 РКШТ ТАВ(30* "Системы счисления" 

15 РКШТ ТАВ(ЗО); — = - " 

20 КАШОМІ2Е (ѴАЬ(КІСНТ$(ТІМЕ$,2))) 

но в$="оі" 



120 ТО =20 
130 РКШТ 
140 РКШТ 

145 КЕМ Перевод из двоичной системы счисления в десятичную 

150 РОК 1=1 ТО 10 

160 ООЗІІВ 560 

170 РКШТ "Двоичное число; 

175 КЕМ Вывод числа в двоичной системе счисления 

180 РОК Д=1 ТО 5 

190 ркшт мш$(в$,в( .ІНЛ); 

200 ШХТ ^ 

210 РКШТ " Десятичное числсс"; 

220 ШРІТГ А 

230 ІР А=Р ТНЕМ 260 

240 РКШТ Б 

250 Т0=Т0-1 

260 РКШТ 

270 ШХТ I 

280 РКШТ 

290 РКШТ 

295 КЕМ Перевод из десятичной системы счисления в двоичную 
300 РОК 1=1 ТО 10 

зю созив 560 

320 РКШТ "Десятичное числа " Д 
330 РКШТ " Двоичное числа"; 

350 ШРЦТ 1$ 

360 ІР ЬЕИ(І$>Ю ТНЕМ 420 
370 І$=”00000"+І$ 

375 І$=КІСНТ$(І$,5) 

376 КЕМ Сравнение чисел 
380 РОК 3=1 ТО 5 

390 ІР Мт$(В$,В(.І)ИД)0 Мт$(І$,ІД) ТНЕМ 420 
400 МЕХТ Д 
410 СОТО 480 
420 РКШТ " "і 

425 КЕМ Вывод числа в двоичной системе счисления 

430 РОК Д=1 ТО 5 

440 РКШТ МЮ$(В$,В(Д>*-Щ 

450 МЕХТ Д 

460 РКШТ 

470 Т0=Т0-1 

480 РКШТ 

490 ЫЕХТ I 

500 РКШТ 

510 РКШТ 

515 КЕМ Завершение сеанса обучения 
520 РКШТ "Ваш счет; ШТ(Т0/.2+.5); 

530 РКШТ 
540 РКШТ 
550 Е№ 
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555 КБМ Выбор числа 
560 Б=0 

570 РОК Л=1 ТО 5 
580 В(.ІННТ(ККР(1>-.5) 
590 0=Р*2*Я(.Х) 

600 №ЕХТ ^ 

ею КЕтики 

620 ЕШ 


Листинг 41 


1 КБМ Словарь 

2 КЕМ ІВМ РС ВА8ІС 

3 КЕМ Автор - Г.Гнеэдилова 

10 РІШІТ "Для того чтобы закончить сеанс обучения," 

11 РКШТ "введите слово конец'.'' 

12 КАШ0МІ2Е (ѴАЦКІСНТ$СПМЕ$,2))) 

15 І=І№Г(КМР(1)*10))-1: КЕ8Т0КЕ 

20 РОК Д=1 ТО I 
30 КЕАР 
40 №ЕХТ 

50 РКШТ (}«$•. ШРЦТ (}$ 

60 ІР 0$=?'конец" ТНЕ№ Е№ 

70 ХР 0$=АН$ ТНЕ№ 15 

80 РКІИТ "Нет, правильный ответ: РКІЯТ АЫ$ 

90 СОТО 15 

100 БАТА стол,1аЫе,стул,сЬа1г 

НО БАТА чашка,сир,блюдце,8аисег,тарелка,рІаТе 

120 БАТА хлеб,Ьгеайутро,гаогпіпЕ 

130 БАТА завтрак,Ъгеак1а8Требенок,сЫЫ,школа,8сЬоо1 

Листинг 42 


1 КЕМ Быстрое чтение (1) 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Автор - Г.Гнеэдилова 
5 КЕѴ ОРР 

10 N-500 

20 СЬЗ: ЬОСАТЕ 10Д5 
30 РОК 1-1 ТО 7 

40 КЕАО А$: РКШТ А$: 00811В 70 
50 №ЕХТ 
80 Е№0 

70 КЕМ Время для прочтения одной строки 
80 РОК Х=1 ТО №. ИЕХТ 
85 СЕ8: ЬОСАТЕ 10,15 
90 КЕТиКИ 

100 РАТА 'Скажите; пожалуйста, куда мне отсюда идти?" 
ПО РАТА "А куда ты хочешь потеть? - ответил кот." 

120 РАТА "Мне все равна. - сказала Алиса." 

130 РАТА "Тогда все равно, куда и идти, - заметил кот." 
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140 БАТА "... Только бы попасть куда-нибудь, - пояснила Алиса.” 
150 БАТА "Куда-нибудь ты обязательно попадешь, - сказал кот.” 
160 ВАТА "Нужно только достаточно долго идти" 

Листинг 43 

1 КЕМ Быстрое чтение (2) 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Ьу Киев Т, Реібтап РЬ. 

4 КЕМ Адаптация - ГГнеэдилова 
10 КЕУ ОРР 

100 С=0 
НО КЕАВ К$ 

120 ІР К$0"ХХХ" ТНЕИ С=01: ООТО НО 

130 РКШТ ” Программа поможет Вам получить навыки” 

140 РКШТ "быстрого чтения. На каждом шаге Вам будет" 

150 РКШТ "предложена короткая фраза. Вы должны прочитать" 
160 РКШТ "ее, запомнить и повторить.” 

170 РКШТ 
190 Т=256 

200 РКШТ 'Нажмите какую-нибудь клавишу, если Вы готовы" 

210 К$=ІЖЕѴ$: ІР К$=”’ ТНЕИ 2Ю 

220 К=ШТ(КЩ1)*СК1 

230 СОЗБВ 580 

240 РОК К=1 ТО 500: ЖХТ 

250 КЕЗТОКЕ: РОК 1=1 ТО Я- КЕАВ К$: ИЕХТ 

260 БОСАТЕ 21: РКШТ К$ 

270 РОК К=1 ТО Т: ИЕХТ 

280 СБЗ 

290 БОСАТЕ 4Д 

300 РКШТ "Какая 4раэа была на экране?'; 

400 ШРБТ А$ 

410 ІР А$оК$ ТНЕИ 500 
420 РКШТ "Да, Вы правы |” 

430 Т=Т/2 

440 К$-'вдвое меньше" 

450 РКШТ 

460 ІР Т>8 ТНЕЯ 480 

470 Т=8: К$="минимальное время." 

480 РКШТ "Следующая фраза будет видима ";К$ 

490 СОТО 200 

500 РКШТ "Нет, Вы ошиблись. Это была фраза?' 

510 РКШТ " ";К$ 

520 Т=Т*2 

530 ІР Т<=2048 ТНЕИ 560 

540 Т=2048: К$=”го же самое время.” 

550 СОТО 480 

560 К$-Ъдвое дольше" 

570 СОТО 480 

580 СБ& РКШТ "-" 

590 РКШТ 
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600 РКШТ "-" 

610 КЕТШШ 

700 РАТА 'Синее небо?', "Багровое зарево" 

710 БАТА "Спелая вишня", "Высокое дерево?' 

720 БАТА "В это же время", "С тем же успехом" 
730 ВАТА "Выполним еще раз", "Птицы летают' 1 
740 БАТА 'Он быстро шел", "Ребенок плачет" 
750 БАТА "Бушующее море", "Посмотри вдаль" 
760 БАТА 'Високосный год", "Алые паруса" 

770 ВАТА "Пароход плывет по реке", XXX 


Листинг 44 


1 КЕМ Календарь 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Ьу Бее ХВ., ВеесЬ 0., Бее Т.О 

4 КЕМ Адаптация - Г.Гнеадилова 
20 РКШТ ТАВ(2Ц "Календарь" 

30 РКШТ ТАВ(21), "====" 

50 РКШТ "Задайте год, например 1976" 

60 ШР11Т У 

70 ІР У О ШТ(У) ТНЕЫ 50 
80 ІР У < 1582 ТНЕМ 50 
90 ІР У > 4902 ТНЕИ 50 

100 КЕМ День недели, на который выпало первое января 
110 БЕТ У1= ШТ((Ѵ -1)/100) 

120 БЕТ У2 = У-1-Ю0*У1 

140 БЕТ 0= 799+У2 +ШТ(У2/4)»ШТ(У1/4)-2*Ѵ1 

150 БЕТ 0= -<0-<ШТ(0/7)*7)) 

180 РКШТ 
170 РКШТ 
180 РКШТ 

190 РКШТ ТАВ(21>, "Календарь на У; " год" 

210 РКШТ 
220 БЕТ Б=0 

230 КЕМ Является ли год високосным 

240 ІР ((ШТ(Ѵ/4)*4) О У) ТНЕМ 280 

250 ІР ((ШТ(Ѵ/400)*400)=У) ТНЕИ 270 

280 ІР ((ШТ(Ѵ/100)*100)=У) ТНЕЫ 280 

270 БЕТ Б=1 

280 РОК N=1 ТО 12 

290 РКШТ 

300 РКШТ 

310 КЕАП А$, М 

320 ВАТА "* Январі. *',31,"* Февраль *',28,"** Март **",31 
330 ВАТА "** Апрель**',30,"*** Май ***'’,31,"*** Июнь **',30 
340 ВАТА "*** Июль **',ЗГ* Август *',31," Сентябрь ",30 
350 ВАТА "* Октябрь *',ЗГ* Ноябрь *',30,"* Декабрь ",31 
360 РКШТ ТАВ(4); 8$; А$; 8$ 

370 РКШТ ТАВ(8)|’Вс";8РЦ6);"і1н";ЗРС(6);'Вт";ЗРС(6);’Ср"; 




375 РКШТ ЗРС(6Ѵ'Чт";ЗРС(6);"Пт";ЗРС( 6Ѵ'Сб' 
380 РКШТ ТАВ(4); "*********»»”; 3$; 8$ 

390 ІР N О 2 ТНЕЯ 410 
400 ЬЕТ М=М+Ь 
410 РОК 1=1 ТО 6 
420 РКШТ 
430 КОК 3=1 ТО 7 
440 ЬЕТ 0=СН-1 
450 ІР І&М ТНЕИ 520 
460 ІР ІК=0 ТНЕЫ 480 
470 РКШТ ТАВ( 1*8); Г); 

480 ИЕХТ 3 

490 ЬЕТ 3=1 

500 ІР Б=М ТНЕН 520 

510 МЕХТ I 

520 ЬЕТ 0=1-3 

530 РКШТ 

540 КЕХТ N 

550 РОК 1=1 ТО 6 

560 РКШТ 

570 ИЕХТ I 

590 ЕЫП 


Листинг 45 


1 КЕМ Компьютер считает 

2 КЕМ ІВМ РС ВА8ІС 


3 КЕМ Соругі^ІЛ (1982): РЫПір Заска, АІА 

4 КЕМ Адаптация - ОГончаров 

ПО СЬ8:ВЕЕР:КЕѴ 0РР:КЕМ МІПІМаПі.ВАв 

120 СОЬОК 0,7 РЕВЕРСНОЕ ИЗОБРАЖЕНИЕ (Ч/Б) 

130 РКШТ ” 

131 РКШТ " 

140 РКШТ " МШІМАТН 

141 РКШТ " 

150 РКШТ " 

151 РКШТ ” 

160 СОЬОК 7,0 ВЕРНУТЬСЯ К ИСХОДНОМУ (Б/Ч) 

180 РКШТ-ШРБТ "ВВЕДИТЕ ЧИСЛО ДЛЯ ВОЗВЕДЕНИЯ В КВАДРАТ ==> ",3 
190 РКШТ: СОЬОК 15,0 ВЫДЕЛИТЬ СЛЕДУЮЩИЕ СЛОВА 

200 РКШТ ТАВ(30) 8 "В КВАДРАТЕ="; 

210 СОЬОК 31 : РКШТ 8*2 МЕРЦАНИЕ И ВЫДЕЛЕНИЕ 

215 СОЬОК 7 ВЕРНУТЬСЯ К ИСХОДНОМУ (Б/Ч) 

218 ІР 11=1 ТНЕМ 480 
220 РКШТ : РКШТ 
240 РІ=3.141593 

250 ШРОТ "ВВЕДИТЕ ЧИСЛО ДЛЯ ВОЗВЕДЕНИЯ В КУБ ==> ", С 

260 РКШТ : СОЬОК 15,0 ВЫДЕЛИТЬ СЛЕДУЮЩИЕ СЛОВА 

270 РКШТ ТАВ(31) С "В КУБЕ=”; 

280 СОЬОК 31: РКШТ С'З МЕРЦАНИЕ И ВЬЩЕЛЕНИЕ 

285 СОЬОК 7 ВЕРНУТЬСЯ К ИСХОДНОМУ (Б/Ч) 


160 




288 ІР 11=1 ТНЕД 480 
290 РКШТ : РКШТ 

310 ШРОТ 'ВВЕДИТЕ РАДИУС КРУГА ==> ", К 
320 А=РІ*К~2 

330 РКШТ : СОТОК 15,0 ВЫДЕЛИТЬ СЛЕДУЮЩИЕ СЛОВА 

340 РКШТ ТАВ(24) "ДЛИНА ОКРУЖНОСТИ="; 

350 СОТОК 31 : РКШТ А МЕРЦАНИЕ И ВЫДЕЛЕНИЕ 

355 СОТОК 7 ВЕРНУТЬСЯ К ИСХОДНОМУ (Б/Ч) 

358 ІР 11=1 ТНЕД 480 

360 РКШТ : РКШТ 

380 РІ=ЗЛ41593 

390 КА0ІАД5=АТад 

400 0Е6КЕЕ5=КАШАД8*180/РІ 

410 ШРОТ 'ВВЕДИТЕ УГОЛ В РАДИАНАХ ==> Ш 

420 0=Д*180/РІ 

430 РКШТ: СОТОК 15,0 ВЫДЕЛИТЬ СЛЕДУЮЩИЕ СЛОВА 

440 РКШТ ТАВ(21) N 'РАДИАН ЭКВИВАЛЕНТ НОГ’; 

450 СОТОК ЗЬ РКШТ Б; МЕРЦАНИЕ И ВЫДЕЛЕНИЕ 

460 СОТОК 15,0 ВЫДЕЛИТЬ СЛЕДУЮЩИЕ СЛОВА 

470 РКШТ "ГРАДУСАМ": СОТОК 7 ВЕРНУТЬСЯ К ИСХОДНОМУ (Б/Ч) 
480 РКШТ : РКШТ 

490 ШРОТ 'ЕСТЬ ЕЩЕ ЗАДАЧИ ДЛЯ РЕШЕНИЯ";Р$ 

500 РКШТ 

510 ІР Р$="ДА" ОК Р$-'да" ТНЕД 11=1 : СОТО 530 ЕТ5Е 520 
520 ІР Р$-ВЕТ' ОК Р$="нет" ТНЕ\ СОТО 610 ЕТ5Е 490 
530 ШРОТ "ЧТО ЖЕЛАЕТЕ: КВАДРАТ = 2 (ИНАЧЕ ПУСТО) ",8$ 

540 ІР 8$-’2' ТНЕИ СОТО 180 

550 ШРЦТ " КУБ = 3 (ИНАЧЕ ПУСТО) ",С$ 

560 ІР С$="3" ТНЕИ СОТО 220 

570 ШРОТ ” ПЕРИМЕТР КРУГА = П (ИНАЧЕ ПУСТО) ",А$ 

580 ІР А$="П" ОК А$="гГ ТНЕД СОТО 290 

590 ШРОТ" РАДИАНЫ В ГРАДУСЫ = Г (ИНАЧЕ ПУСТО) ",0$ 

600 ІР 0$="Г ОК 0$="г" ТНЕД СОТО 360 

610 КЕМ РАНДОМИЗАТОР 

620 ВЕЕР. РКШТ 

630 К$-'_РАДА БЫТЬ ПОЛЕЗНОЙ.." 

635 СОТОК 15,0: ОІМ К(30) ВЫДЕЛЕНИЕ ПОДПИСИ 

640 0=0+1 

650 Р-ШТЦШОЦРЗОИ 
660 ІР 4=1 ТНЕИ ООТО 700 
670 РОК 1=1 ТО О-] 

660 ІР К(І)=К ТНЕИ СОТО 650 
690 ИР.ХТ I 
700 К(0)«К 

7ю ркшт мш$(к$,о,і); 

720 ІР 0-30 ТНЕИ СОТОК 7 : СОТО 740 
730 ООТО 640 

740 РКШТ : СТ8 : СОТОК 0,7 РЕВЕРСНОЕ ИЗОБРАЖЕНИЕ (Ч/Б) 

750 РКШТ " СоругІеЬТ Ц962) РШІір Ласка, АІА 

760 СОТОК 7,0 ВЕРНУТЬСЯ К ИСХОДНОМУ ®/Ч) 


П.Зак. 
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770 ВЕЕР : КЕУ ОN 

780 РЫМ : ЬОСАТЕ 15Д 

785 РЫМ "НАЖМИТЕ Е8С ДЛЯ ЗАВЕРШЕНИЯ" 

790 СМО$=ІІІКЕУ$ : ІР СМО$=СНК$(27) ТНЕИ СОТО 630 ЕЬЗЕ 790 
830 КЕУ ОРР 
999 Е№ 


Листинг 46 


1 КЕМ Экономист 

2 КЕМ ІВМ РС ВА8ІСА 

3 КЕМ Автор - ГТнеэдилова 

5 КЕМ Запрос вида диаграммы 
10 РКШТ "Вы мелеете построить. - " 

20 РКШТ " 1 - гистограмму^' 

30 РКШТ " 2 - секторную диаграмму." 

40 ШРЦТ К 

50 ІР К=1 ОК К=2 ТНЕИ 70 
60 РКШТ 'Ответьте 1 или 2': СОТО 40 
70 КЕМ Ввод исходных данных 
80 ШМ А(21) 

90 РЫМ "Вводите исходные данные (не больше двадцати" 
100 РЫМ "чисел). Ввод завершите любым отрицательным" 
110 РЫМ "числом." 

120 1=1 

130 ШРОТ А(І) 

140 ІР А(І)<0 ТНЕМ 180 
150 1=1+1 

160 ІР І<=21 ТНЕМ 130 

170 РКШТ "Данных слишком много.": СОТО 90 
180 С=Ы 

185 КЕМ Ввод заголовка 

190 ШРЦТ 'Заголовок (не длиннее 40 символов)Г;А$ 

200 ІР ЬЕМ(А$)?=40 ТНЕИ 220 

210 РКШТ 'Заголовок слишком длинный": СОТО 190 

220 ЗСКЕЕИ 2: КЕУ ОРР: СЬЗ 

230 КЕМ Вывод заголовка 

240 РКШТ ТАВ(ІМ((40-ЬЕМ(А$))/2+1))[А$ 

250 ІР К=2 ТНЕИ 390 

260 КЕМ Построение гистограммы 

270 МАХ=0 

280 РОК 1=1 ТО С 

290 ІР А(І>МАХ ТНЕИ МАХ=А(І) 

300 МЕХТ 

ЗЮ БХ=5: УУ=130 

320 ЬШЕ (Ю.180НЗЮД80) 

330 Х=15: У=180 
340 РОК 1=1 ТО С 

350 ЬШЕ (Х,УНХ+ВХ,У-А(1)*1)У/МАХ)*В 
360 Х=Х+2*ОХ 
370 ИЕХТ 
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380 ЕНО 

390 КЕМ Построение секторной диаграммы 
400 ТОТАІХ) 

410 РОК 1=1 ТО С 
420 ТОТАЬ=ТОТАЬ+А(І) 

430 ИЕХТ 

440 СІКСЬЕ 060,110X70 
450 ХЯ60: УЯЮ 
460 ЬАЗТЗЫСБО 
470 РОК М ТО С 

460 НЕѴ*5ЫСБ6.28*А(І)/Т0ТАЬ+ЬА5Т5ЫСЕ 
490 Х3і60+70*С05(МЕИ5ЫСЕ) 

500 У2ИО<-70*5Ш(НЕИ5ЫСЕ)*5/12 
510 ЬШЕ(Х1,Ѵ1НХ2,У2) 

520 ЬАЗТЗЫСБМЕИЗЫСЕ 
530 ИЕХТ 


Листинг 47 


1 КЕМ Картотека 

2 КЕМ ІВМ РС ВА5ІС 

3 КЕМ Ьу Магк ЗамизЬ апсі Тап Зшмпегз 

4 КЕМ Адаптация - Г.Гнездилова, Г.Сенин 
10 ВЕР 5Е&&Н40 

20 РОКЕ &Ш7,(РЕЕК(&Ш7)0К 64) 'прописные буквы 
30 ЛЕР 5Е0 

60 СЬЕАК 3000: КЕУ ОРР: СЬ5 

70 КЕМ Функция, формирующая имя файла по ключевому слоту 
80 ЛЕР РММ$(1«)КіенТ$(5ТК$(А5С(іадЬЕН(5ТК$(А5С(іга))НК.ТХГ 
90 РКШТ "Картотека" 

100 РКШТ "Вы можете выполнить следующие действия:" 

ПО РКШТ "Команда","Ее назначение" 

120 РКШТ "ШРІІТ", "Заполнить новую карточку" 

130 РКШТ "САТ","Вьщать список ключевых слов" 

140 РКШТ "РШЛ","Найти карточку" 

150 РКШТ "КЕОСТ',"Отредактировать карточку" 

160 РКШТ "ОЕЬ","Удалить карточку" 

170 РКШТ "ЕМ)","Закончить работу" 

180 ІИРОТ А$ 

190 ІР А$ЧМРЛГ ТНЕИ 270 

200 ІР АЗМ^САГ ТНЕИ 660 

210 ІР А$»РІМІГ ТНЕИ 960 

220 ІР А^КЕЛОГ' ТНЕИ 460 

230 ІР АЗИПЕЬ" ТНЕ\ П40 

240 ІР А$ЧШІГ ТНЕИ СЬ05Е:Ет 

250 РКШТ "Неправильная команда." 

280 СОТО ПО 

285 КЕМ Заполнение карточки 

270 ШРІІТ "Введите ключевое слово (не больше 20 символов)',В$ 
280 ІР ЬЕ\(В$)в0 ТНЕИ 270 

320 РКШТ "Введите заметку. Ее длина не должна превышать" 



325 РКГОТ "105 символов. В тексте не должно быть запятых" 
330 ГОРИТ С$:ІК ЬЕ\(С$)І05 ТНЕМ 320 
340 0$€ГОМ$(В$) 

350 СЬОЗЕ 

360 ОРЕГІ "К",Ю$: ТА 

370 РІЕЬО #13 АЗ Е$, 20 АЗ Р$, 105 АЗ С$ 

380 СЕТ #1,2 'ищем пустую карточку 

390 ІР ЕЭ--999" ТНЕМ 2=2+1: ІР 7+ЬОР(1)/128+1 ТНЕМ 400 ЕЬЗЕ 380 
400 ЬЗЕТ Р$В$ 

410 ЬЗЕТ С$€$ 

420 ЬЗЕТ Е$‘-999" 'отмечаем, что эта карточка заполнена 
430 РІ1Т #1,2 
440 СЕОЗЕ 
450 СОТО 90 

455 КЕМ Редактирование карточки 
46О ГОРИТ "Ключевое слово";В$ 

470 0$РШ$(В$) 

480 СЬОЗЕ: ТА 
490 ОРЕЫ "К",Ю$ 

495 ІР Ь0Р(1>0 ТНЕМ РКГОТ "Карточек нет":СЕ03Е: СОТО 100 
500 РІЕЬО #13 АЗ Е$, 20 АЗ Р$, 105 АЗ С$ 

510 ІР 21,ОР(1)/128+1 ТНЕ\ РКГОТ "Конец файла":СЬОЗЕ:СОТО 100 
520 СЕТ #12 

530 ІР Е$Й999" ТНЕЫ 2=2+1 СОТО 500 

540 ІР ЬЕРТ$(Р$.ЬЕЫ(В$))5В$ ТНЕЫ 2=2+1 СОТО 500 

550 СЬЗ 

560 РКГОТ "Карточка:" 

570 РКГОТ 0$: РКГОТ 

580 ГОРИТ "Будете редактировать (Іда, 2нетУ';У 

590 ІР ѴЯ ТНЕИ 22+1С0Т0 500 

600 ГОРИТ "Введите заметку заново:",С$ 

610 ІР ЬЕМ(С$)Я05 ТНЕИ 620 

615 РКГОТ "Длина заметки превышает 105 символов.":С0Т0 600 
620 ЬЗЕТ С5+С$: ЬЗЕТ Р$=8$: ЬЗЕТ Е$^999" 

630 РИТ #12 

640 РКГОТ "Будете редактировать другие карточки" 

645 ГОРИТ "с этим ключевым словом (Іда, 2 нет У; У 
650 22+1: ІР ѴЯ ТНЕЫ СЬОЗЕ: СОТО 100 ЕЬЗЕ 500 
655 КЕМ Каталог 

660 РКГОТ "Вы можете просмотреть:" 

663 РКГОТ ” 1 - все ключевые слова" 

670 ГОРИТ " 2 - ключевые слова по их первой букве";Ѵ 

680 0\ V СОТО 810,690 

690 ГОРИТ "Ключевое слово";Н$ 

700 ШГОМ$(Н$) 

710 СЬОЗЕ: 2С- Ш: РКГОТ: РКГОТ "Карточка #","Ключевое слово" 
720 ОРЕИ "К",1,0$ 

725 ІР Ь0Р(1)0 ТНЕМ РКГОТ "Карточек нет":СЬ03Е: СОТО 100 
730 РІЕЬО #1 3 АЗ Е$, 20 АЗ Р$, 105 АЗ 0$ 

740 СЕТ #12 
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750 ГР 2Я,ОР(1)/128+1 ТНЕХ 760 

755 РКІХТ "- СІ.ОйЬбОТО 100 

760 ІР ЕЗа "999'' ТНЕХ 22+1; СОТО 730 
770 РКІХТ 2,Р$: ММ+1 

780 ГР ІХТ(М/17>М/17 ТНЕХ ГХРІІТ "Нажмите клавишу Ввод",М3 
790 2=2+1 
800 СОТО 730 
810 СЬЗ 

820 РКТНТ "Карточка #","Ключевое слово" 

830 2А5С ('А") 

840 0$€ХМ5(СНК5(Х)) 

860 2-1 

870 СГ.08Е 

880 ОРЕХ "К"Д,0$ 

883 ГР Ь0Р(1)О ТНЕХ 890 

885 2Х+1ІР ЖАЗС("Я") ТНЕХ 840 ЕЬЗЕ СЬОЗЕ: СОТО 100 
890 РІЕГ.0 #1 3 АЗ Е$, 20 АЗ Р$, 105 АЗ 6$ 

900 ГР 2&0РШ/128+1 ТНЕХ 910 

905 ХХ+1- ГР ЖАЗСГЯ") ТНЕХ 840 ЕЬЗЕ СГ.03Е: СОТО 100 
910 СЕТ #1,2 

920 ГР Е$*'999" ТНЕХ 2-2+1: СОТО 890 
930 РКГХТ 2,Р$ 

940 22+1 
950 СОТО 890 

960 СЬЗ: КЕМ Поиск заметки 
970 ГХРНТ "Ключевое слово";В$ 

980 ОЯ’ХМ$(В$) 

990 СГ.05Е: ТА 
1000 ОРЕХ "К",1,Г)$ 

1005 ГР Ь0Р(1}0 ТНЕХ РКГХТ "Карточек нет": СЬОЗЕ: СОТО 100 
1010 ГР 2й[,ОР(1)/128+1 ТНЕХ 1020 

1015 РКГХТ "Конец файла”: ІХРГГТ "Нажмите клавишу Ввод",М3 

1016 СГ,08Е: СЕ5:СОТО 100 

1020 РГЕЬО #1,3 АЗ Е$, 20 АЗ Р$, 105 АЗ СЗ 
1030 СЕТ #1,2 

1040 ГР Е$» "999" ТНЕХ 22+1: СОТО 1010 
1050 ГР ЕЕРТ5(Р5,ЕЕХ(ВЗ)>ВЗ ТНЕХ 1080 
1060 2?2+1 
1070 СОТО 1010 

1060 РКГХТ "Ключевое слова";Р5,"Карточка #:";2 
1090 РКШТ 65 
1100 РКІХТ 
ШО 22+1: ММ+1 

1120 ІР ІХТ(М/5Ж/5 ТНЕХ ІХРГГТ "Нажмите клавишу Ввод”,М$ 
1130 СОТО 1010 

1135 КЕМ Удаление карточки 
1140 СЬЗ 

1150 ІХРІГТ "Ключевое слово, номер карточки ",В$,2 
1160 ВЗРНМЗ(ВЗ) 

1170 СЬОЗЕ 
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1180 ОРЕХ "К",#1Д$ 

1190 РІЕЬИ #1, 3 АЗ Е$, 20 АЗ Р$, 105 АЗ 0$ 

1200 СЕТ #1,2 

1210 ІР ЬЕРТ$(Р$,ЬЕХ(В$)>В$ ТНЕИ 1220 

1215 РКІХТ "У карточки с этим номером другое ключевое слово" 

1216 СЬОЗЕ: СОТО 100 
1220 СЬЗ 

1230 РЕІХТ "Ключевое слово";Р$ 

1240 РКШТ 0$ 

1250 РКШТ 

1260 ШРИТ "Если Вы хотите удалить эту карточку, введите Т';У 

1270 ІР ѴЯ ТНЕИ СЬОЗЕ: СОТО 100 

1280 РІЕІЛ #1,3 АЗ Е$, 20 АЗ Р$, 105 АЗ 0$ 

1290 ЬЗЕТ Е$4" 

1300 ЬЗЕТ С$4" 

1310 ЬЗЕТ Р$^” 

1320 РІІТ #1,2 
1330 СЬОЗЕ 
1340 СОТО 100 


Листинг 48 


1 КЕМ Биоциклы (1) 

2 КЕМ ІВМ РС ВАЗІС 

3 КЕМ Автор - О.Гончаров 

100 КЕМ-ПЕЧАТЬ ГРАФИКА БИОРИТМОВ — 

105 СЬЗ 

110 ИМ И$(14), Ь$(41), М3(36), Х$(40) 

120 Ь$4' 

130 М$4’ВсПнВтСрЧтПтСу" 

140 М$ ѵ ЯНВФЕВМАРАПРМАЙИЮНИЮЛАВГСЕНОКТНОЯДЕК" 

150 С1 = 2 * 3.141593 

160 РКШТ "Введите Ваше имя" 

170 ШР11Т Х$ 

180 РКІХТ "Введите дату Вашего рождения" 

190 РКШТ "31ДД940 означает 31 Янв. 1940" 

200 ШР11Т ЦМ.У 

205 ІР У < 100 ТНЕХ УУ+1900 

210 РКІХТ 'Введите месяц и год календаря биоритме»" 
220 РКІХТ "8,1978 означает Авг. 1978" 

230 ІХРІПГ М4.У4 

235 ІР У4 < 100 ТНЕХ УФУ4+1900 

240 СОЗИВ 1220 

250 М=М4 

280 И=1 

270 Ѵ=Ѵ4 

280 СОЗИВ 830 

290 31=Л 

300 СОЗИВ 1220 

310 Ы=31 

320 ІР М4 = 12 ТНЕХ 380 
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330 0051ІВ 970 
340 53=НЗ 
350 М=М4+1 
360 ООЗОВ 970 
370 Ы=МЗ-33 
380 В=Л-31+1 
390 Е=В+Ы-1 

395 ЬРКШТ СНК$(27)СНК$(71) 

400 ЬРКШТ ТАВ(5) СНКЗСМЪ'БИОРИТМЫ тов. по имени Ш$ 
405 ЬРКШТ 

410 ЬРКШТ ТАВ(23) СНК$(14);МШ$(М$,(М4-1)*3 + ■ 1,3>Ѵ 
415 ЬРКШТ СНК$(27)СНК$(72) 

420 С080В 450 
430 СОТО 480 

440 КЕМ ПЕЧАТЬ РАЗМЕТКИ 

450 ЬРКШТ ТАВ(9Ъ"-__О_.+" 

460 КЕТОКИ 

470 КЕМ НАЧАТЬ ИЗГОТОВЛЕНИЕ ГРАФИКА 

480 Ѵ=0 

490 КЕМ ЦИКЛ ПО ДНЯМ 

500 РОК І=В ТО Е 

510 Ѵ=Ѵ + 1 

520 ЛЗ=І - 1 

530 К1=ЛЗ/23 

540 КЗ=ЛЗ/28 

550 К5=ЛЗ/33 

580 К2=К1 - ШТ(К1) 

570 К4=КЗ - ШТ(КЗ) 

580 К6=К5 - ШТ(К5) 

590 Р2=ЗШ(С1*К2) 

800 Е2=5Ш(С1*К4) 

810 І2=5Ш(С1*К6) 

820 0*=Р2 + Е2 + 12 

830 0-ШТ(16668 * (О + 3)) + 1 

840 Р=ШТ(2Ь5 + 20 * Р2) 

850 0-=ШТ(2Ь5 + 20 * Е2) 

880 К«=ШТ(21.5 + 20 * 12) 

670 МЮ$(Ь$,2Ь1)= 1 '." 

875 ІР Р > 41 СОТО 685 
880 МГО$(Ь$,РДКр" 

885 ІР Ц > 41 СОТО 695 
890 МЮ$(Ь$,С!ДКе" 

895 ІР К > 41 СОТО 710 
700 МТО$(Ь$,К,1Н'Т' 

710 ЬРКШТ 0;ТАВ(Ю)е 

720 ЬРКШТ СНК$(27)СНР$(71)Ь$; 

730 ЬРКШТ ТАВ(54) СНК$(27)СНК$(72);Ѵ;МШ$(И$,(М2-1)*2 + 1,2) 
740 Ь»-" 

750 N2 - N2 + 1 
760 ІР И2<8 ТНЕИ 780 
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770 N2=1 
780 ИЕХТ I 
790 0080В 450 

800 ЬРКШТ:ЬРКШТ ТАВ(10>"1 = Интеллект " 

801 ЬРКШТ ТАВ(:Ю);"Р = Физическое сост. " 

802 ЬРКШТ ТАВ(10]ГЕ = Эмоции " 

803 ЬРКШТ ТАВ(10);"Кривая справа от центральной линии показы-" 

804 ЬРЮТТ ТАВ(10);"вает период, удачный для характеристики," 

805 ЬРКШТ ТАВ(10);"а слева - отмечает неблагоприятный период." 

806 ЬРКШТ ТАВ(10);"Чиг.ло слева сколо 50000 указывает крити-" 

807 ЬРКШТ ТАВ(10);"ческое время; вы должны бьпъ осторожны, " 

808 ЬРКШТ ТАВ(10);"особенно когда и характеристика отклоняется" 

809 ЬРКШТ ТАВ(10);"в это время влево." 

810 КЕМ КОНЕЦ РАБОТЫ 

820 СОТО 1340 

830 КЕМ ОПРЕДЕЛИТЬ НОМЕР ДНЯ НРДГТИ 

840 ІР М<3 ТНЕИ 880 

850 Ш=М - 2 

860 Ѵ1=Ѵ 

870 СОТО 900 

880 М1=М + 10 

890 Ѵ1=Ѵ - 1 

900 С=ШТ(Ѵ1/100) 

910 т ѵнс*іоо) 

920 Н4=ШТ((13*М1 - 1)/5) + О + И + ШТ(Ш/4) 

930 N=N4 + ШТ(С/4) - 2*С '77 
940 т=ШТ(\/7) 

950 \2=\-(т*7) + 1 
960 КЕТШШ 

970 КЕМ ОПРЕДЕЛИТЬ ПОСЛЕДНИЙ ДЕНЬ МЕСЯЦА 

980 Ѵ2=ШТ(У/4) 

990 ѴЗ=Ѵ - (Ѵ2*4) 

1000 ІР УЗ = О ТНЕК 1020 
1010 СОТО 1120 
1020 У 2=1 N1X7/100) 

1030 ѴЗ=Ѵ - (У2*100) 

1040 ІР УЗ = О ТНЕИ 1060 
1050 СОТО 1100 
1060 У2=ШТ(У/400) 

1070 УЗ=У - (У2*400) 

1080 ІР У = О ТНЕИ 1100 
1090 СОТО 1120 
1100 Ы = 1 

то сото изо 

1120 Ы=0 

изо ш=тт((зо55*(м + 2))/юо) - эі 

1140 Ь=0 

1150 ІР М < 3 ТНЕИ 1200 
1160 ІР Ы = О ТНЕИ 1190 

1170 и = о 
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1180 еото і2оо 

1190 Ь = 2 

1200 из=т + о - ь 
то кетшш 

1220 КЕМ ВЫЧИСЛИТЬ СООТВЕТСТВУЮЩУЮ ГРЕГОРИАНСКУЮ ДАТУ 

1230 ІР М < 3 ТНЕ\ 1270 

1240 Ш = М - 3 

1250 VI = V 

1260 ООТО 1290 

1270 Ш = М + 9 

1280 VI = V - 1 

1290 С = ШТ(У1/100) 

1300 01 = VI - (С * 100) 

1310 \=ШТ((И6097! * С)/4) + О + ШТ((1461 * 01)/4) 

1320 + 1721119! + ШТ((153 * Ш + 2)/5) 

1330 КЕТШ\ 

1340 КЕМ * ЮНЕЦ РАБОТЫ 

1360 ЕШ 

Листинг 49 


1 КЕМ Биоциклы (2) 

2 КЕМ ІВМ РС ВА5ІС 

3 КЕМ Автор - В.Пономарев 

10 КЕМ ===== ПРОГРАММА ВЫВОДА КАЛЕНДАРЯ БИОЦИКЛОВ НА ПЕЧАТЬ ==== 
20 ЬОСАТЕ 24,1 
30 ШРЦТ " Имя -".N4$ 

40 ШРЦТ " День, месяц и год рождения (цд,мм,гггг) ”,00,ММ,Ѵ1 
45 ІР ѴК1000 ТНЕИ Ѵ1=ѴМ900 

50 ШРЦТ" Половина суток рождения (1/2) -',НКІР НН=0 ТНЕИ НН=1 
60 ШРІТГ " Календарный год (1985) -",Ѵ2ІР Ѵ2=0 ТНЕИ Ѵ2=1985 
85 ШРЦТ " С какого месяці начать -",ММЗ 
70 СОЗаВ 800 1 ОПРЕДЕЛЕНИЯ 
80 ѴѴ=Ѵ1 

90 С080В 930 ВЫЧИСЛЕНИЕ МАУ 
100 МЦ=№АѴ 

ПО 11=01): І2=ММ:ІЗ=Ѵ1:С05ав 1020: РКШТ І4,№АѴ 
115 0М99=І4 

120 І1=І:І2=І:ІЗ=У2: С050В 1020: БИ=І4 
130 ѴѴ=Ѵ2 

140 КЕМ - — - 

141 РКШТ "Нажмите пробел, если принтер готе® 

142 Ш$=ШКЕѴ$:ІР Ш$=” ТНЕМ 142 ЕЬЗЕ ІР Ш$=СНК$(15) ТНЕИ Т=1 

145 ЬРРШТ СНК$(27ГГ;СНК$(27);"3' , ;СНК$(30); 

146 ЬРКШТ СНК$(27);"8”; 

150 ИЮТН "ЬРТТ',132 
160 ЬРКШТ СНК$(18) 

170 ЬРКШТ СНКЙЩ" БИОЦИКЛЫ ";Ѵ2 

180 ЬРКШТ 

191 ЬРКШТ СНК$(16)[" 

192 ЬРКШТ Ш$:СНК$(21): 
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200 ЬРКШТ СНК$(15) 

210 КЕМ - 

220 РОК МС=1 ТО 12 

230 ІР МО=ММ5 ТНЕИ ЬРКШТ 

240 00511В 1070 'ЬМ 

250 ІР МО=ММЗ ТНЕИ 251 ЕЬЗЕ 260 

251 ЬРКШТ ВЬ$;СНК$(27);"Е";" ";М0МТНЗ$(МС);" 

252 ЬРКШТ СНК$(27);"Р"; 

260 РОК 1=1 ТО ИМ 

265 ІР МО=ММ5 ТНЕИ 266 ЕЬЗЕ 270 

266 ІР (БИ=0)АЩТ=1) ТНЕИ ЬРКШТ СНК$(27)"-";СНК$(1); 

270 ІР МО=ММ8 ТНЕ\ ЬРКШТ ЦЗШО ";І; 

280 ІР МО=ММЗ ТНЕИ 285 ЕЬЗЕ 290 

285 ІР (0И=0)АЩТ=1) ТНЕЛ ЬРКШТ СНК$(27У'-";СНК$(0)! 

290 ОИЧО*М)МОО 7 

300 ИЕХТ I 

310 ІР МО=ММ8 ТНЕИ ЬРКШТ 

320 ЬС=23 

321 ІР МО=ММ5 ТНЕ\ ЬРКШТ ВЬ$;"ФизическиЙ цикл 

322 0050В ШО 

330 ЬС=28 

331 ІР МО=ММЗ ТНЕ\ ЬРКШТ ВЬ$;"Эмоциональн.цикл 

332 0030В ШО 

340 ЬС=33 

341 ІР МО=ММ5 ТНЕ\ ЬРКШТ ВЬ$, -"Интеллект, цикл 

342 ООЗИВ ШО 

350 га=нг>+ьм 

360 \ЕХТ МС 

380 ЬРКШТ "':ЬРКШТ ВЬ$; 

381 ЬРКШТ"- 

385 ЬРКШТ СНК$(27);"5";СНК$(0); 

390 ЬРКШТ ВЬ$;" К 1 Января";У2" Вы прожили";тАУ-1;"дней." 

391 ЬРКШТ 

392 ЬРКШТ ВЬЗДО.ММУІ 

393 ЬРКШТ ВЬ$;НН,0М99 
395 ЬРКШТ СНК$(27Г@' 

400 3011Ш 400,23ОІЮТ 800,2 ЕШ 

800 КЕМ ОПРЕДЕЛЕНИЯ =—===============—================== 

8Ю гам ЬМ5(12) 'КОЛИЧЕСТВО ДНЕЙ В МЕСЯЦАХ 

820 РАТА 31,28,31,30,31,30,31,31,30,31,30,31 

830 РОК 1=1 ТО 12 КЕАй ЬМ5(І> ИЕХТ 

840 ШИ М0\ТН5$(12) 'НАИМЕНОВАНИЯ МЕСЯЦЕВ 

850 ОАТА'Январь ""Февраль "."Март ""Апрель " 

855 ДАТАМай "."Июнь 

860 ДАТАИюль ""Август ''"Сентябрь "."Октябрь " 

865 ОАТА'Нсябрь "."Декабрь " 

870 РОК 1=1 ТО 12КЕАБ М0ЭТНЗ$(І)МЕХТ ‘ . 

880 ММ №N(12) ПЕРВЫЙ ДЕНЬ НЕДЕЛИ МЕСЯЦА 

890 ДАТА 0,3,3,6,1,4,6,25,0,3,5 

900 РОК 1=1 ТО 12 : КЕАО ЩІ) ШЕХТ 
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910 ВЬ$^’ 

920 КЕТЦКН 

930 РЕМ ВЫЧИСЛЕНИЕ ШАѴ НА ОСНОВЕ (ІЩММ,Ѵ1,Ѵ2) ========= 

940 И=365*(У2-У1)ИНТ((У2-1)/4НМТ((У1-1)/4)-0І><-2 

950 РОЕ МС=1 ТО ММ-1 

960 С0511В 1070 'ДЛИНА МЕСЯЦА -ЬМ 

970 Н=Н-ЬМ 

980 НЕХТ МС 

990 НЦАѴ=Н 

1000 ЕЕТЦКН 

1020 НЕМ ДЕНЬ НЕДЕЛИ (І1Д2ІЗ - 14 )==================== 

1030 І4=ІЗ+ІЯТ((ІЗ)/4)нИЯ(І2КІИ-5 

1040 ІР (І2<3) АНЦ ((13 МОй 4)=0)ТНЕЯ 14=14-1 

1050 14=14 МОй 7 

1060 ЕЕТЦКН 

1070 НЕМ ВЫЧИСЛЕНИЕ ЬМ НА ОСНОВЕ (МС,УУ) ============ 

1080 К=0:ІР (МС=2) АНП ({УѴ МОБ 4)=0) ТНЕЯ К=1 
1090 ЬМ=ЬМ5(МС)+К 
ДОО ЕЕТШН 

ШО НЕМ ЬТК$ (Щ ДЛИНА ЦИКЛА, НН) ============ 

1120 К=НН:ІР(ЬС МОО 2)= О ТНЕЯ К=2 
1130 Х=ШТ((ЬС-1)/2+К) 

Д40 РОЕ ЯСС=ЯЦ ТО НШ-ЬМ-1 

1150 ЯС=ЯСС МОЦ ЬС:ІР ЯС=0 ТНЕЯ ЯС=ЬС 

Д60 Х=ІЯТ((ЬС-1)/2+К) 

Д70 ІР(ЯСОІ)АЯЦ(ЯСОХ) ТНЕЯ СОТО 1180 

Д71 ІР(ЯС=1)0Е(ЯС=Х) ТНЕЯ ІР МО=ММ8 ТНЕЯ ЬРКІЯТ " К"; 

Д75 СОТО 1200 

1180 ІР ЯС >= X ТНЕЯ СОТО Д90 

1181 ІР МО=ММЗ ТНЕЯ ЬРЕШТ " +"; 

1185 СОТО 1200 

Д90 ІР МО=ММ5 ТНЕЯ ЬРКІЯТ " 

1200 ЯЕХТ ЯСС 

1210 ІР МО=ММ5 ТНЕЯ ЬРКІЯТ 
1215 ЕЕТЦЕЯ 


Листинг 50 


1 КЕМ Биоциклы (3) 

2 ЕЕМ ІВМ РС ВА8ІС 

3 ЕЕМ Автор - В.Пономарев 

10 КЕМ ПРОГРАММА ВЫВОДА КАЛЕНДАРЯ БИОЦИКЛОВ НА ЭКРАН ===== 
20 ЬОСАТЕ 24,1 

40 ІЯРЦТ " День, месяц и год рождения (цд,мм,гттт) -”,ЦЦ,ММ,У1 
45 ІР ѴК1000 ТНЕЯ У1=ѴМ900 

50 ІЯРЦТ' Половина суток рождения (1/2) -',НН:ІР НН=0 ТНЕЯ НН=1 
60 ІЯРЦТ " Календарный год (1985) -",Ѵ2ІР Ѵ2=0 ТНЕЯ Ѵ2=1985 
65 ІЯРЦТ " С какого месяца начать -",ММЗ 
70 СОЗЦВ 800 ' ОПРЕДЕЛЕНИЯ 
80 УѴ=У1 

90 СОЗЦВ 930 ВЫЧИСЛИТЬ ЯЦАѴ 
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100 ГО=№АУ 

110 11=00:1 2=М№1 3=-У1:608НВ 1020: РКШТ 14, ИОДУ 
115 0И99=І4 

120 11=112=1:13-У2: С050В 1020: ОМ-14 
130 УѴ=У2 

140 КЕМ - 

141 РКШТ "Нажмите пробел, если ВЫ птговы 

142 Ш$=ШКЕУ$:ІР Ш$="" ТНЕЫ 142 ЕЬ8Е ІР Ш$-СНК$(15) ТНЕИ Т=1 
180 РКШТ 

210 КЕМ -- --- - 

220 РОК МС-1 ТО 12 

230 ІР МО=ММ8 ТНЕЫ РКШТ 

240 С08ЦВ 1070 ’ЬМ 

250 ІР МО--ММЗ ТНРШ РКШТ ВЬ$;" ";МООТНЗ$(МС) : РКШТ " 

260 РОК 1=1 ТО ЬМ 

265 ІР МО=ММ8 ТНЕЫ ІР фІѴ=0)АЩТ=й) ТНЕЫ РКШТ ; 

270 ІР МО=ММЗ ТНЕИ РКШТ ІІ8Ш0 "##";І; 

280 ІР МО=ММЗ ТНЕИ ІР (ОИ=0)АШ(Т=1) ТНЕИ РКШТ ; 

290 0ѴН0№+1)М00 7 

300 ИЕХТ I 

310 ІР МО=ММЗ ТНЕИ РКШТ 

320 ЬС=23 

321 ІР МО=ММЗ ТНЕИ РКШТ "Ф:"; 

322 008ІІВ 1110 

330 ІХ=28 

331 ІР МО=ММ8 ТНЕИ РКШТ "Э:"; 

332 008ИВ 3110 

340 ІХ=33 

341 ІР МО=ММЗ ТНЕИ РКШТ "И:"; 

342 СОЗШ ШО 
350 ШШШ-ЬМ 
360 ИЕХТ МС 

380 РКШТ "'РКШТ ВЬ$: 

381 РКІ1ЛГ'--- - 

390 РКШТ ВЕ$;" К 1 Янвзря”;Ѵ2” Вы пр®килі^ОАУ-];"дней" 

391 РКШТ 

392 РКШТ ПТ $;Р0:ММ:У1 

393 РКШТ ВЬ$;НН,0И99 

400 ЗОШО 400.2:30ІШО 800,2 ЕШ 

800 КЕМ ОПРЕДЕЛЕНИЯ ===========~==~==-з=.-= ======—-_-=== =і ==: 

810 ШМ ЬМ8(12) 

820 ДАТА 3128,3130,3130,313130,3130,31 

830 РОК 1=1 ТО 12 КЕАІ) ЬМ8(І> ИЕХТ 

840 ДІМ М0МТН8$(12) "НАИМЕНОВАНИЯ МЕСЯЦЕВ 

850 ОАТА'Январь "."Февраль "."Март ""Апрель " 

855 ОАТА'Май "."Июнь 

860 ОАТА’ІІюль ""Август ""Сентябрь ""Октябрь " 

865 ОАТ-ѴНоябрь ""Декабрь " 

870 РОК 1-1 ТО 12КЕА0 М0ЫТНЗ$(І^ЕХТ 
880 ОІМ Ѵ»і\(12) ПЕРВЫЙ ДЕНЬ НЕДЕЛИ МЕСЯЦА 
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890 ОАТА 0,3,3,6,1,4,6,25,0,3,5 

900 РОР 1=1 ТО 12 : РЕАО Ш(І) іИЕХТ 

910 ВЬ$=?' 

920 РЕТИНИ 

930 РЕМ ВЫЧИСЛЕНИЕ ЫБАУ НА ОСНОВЕ (ІГО,ММ,Ѵ1,Ѵ2) ===== 

940 М=365ЧУ2-У1)іШТ((У2-1)/4)-ШТ((Ѵ1-1)/4Н>ІН2 

950 РОР МС=1 ТО ММ-1 

960 00811В 1070 'ДЛИНА МЕСЯЦА - ЬМ 

970 К=М-ЬМ 

980 ИЕХТ МС 

990 КОАУ=К 

1000 РЕТІШ 

1020 РЕМ ДЕНЬ НЕДЕЛИ (І1Д2ДЗ - І4 )======= 

1030 14=13+1МТ((13)/4КОД12Н1+5 

1040 ІР (І2<3) А№ ((13 МОО 4)-0)ТНЕЫ 14=14-1 

1050 14=14 МОО 7 

1060 РЕТЦРК 

1070 РЕМ ВЫЧИСЛЕНИЕ ЬМ НА ОСНОВЕ (МС,ѴУ) ====== 

1080 К=0:ІР (МС=2) АЫО ((УУ МОО 4)=0) ТНЕИ К=1 
1090 І,М=І,М8(МСКК 
1100 РЕТІІРЫ 

1110 РЕМ ЬТР$ (N0, ДЛИНА ЦИКЛА, НН) =================== 

1120 К=НН:ІР(ЬС МОО 2)= О ТНЕИ К=2 
ИЗО Х=ІГПХ(ЬС-1)/2+К) 

1140 РОР ЫСС=ЫО ТО N01-1,4-1 

1150 КС=ЫСС МОО І,С:ІР N0-0 ТНЕЫ N0=1,С 

1180 Х=ШТ((ЬС-1)/2+К) 

1170 IР(ИСо1)АИ0(ИСоХ) ТНЕИ СОТО 1180 

1171 ІР(ЫС=1)0Р(ЫС=Х) ТНЕ^ ІР МО=ММ8 ТНЕМ ВРШТ " К"; 
1175 СОТО 1200 

1180 ІР N0 >= X ТНЕИ СОТО 1190 

1181 ІР МО=ММ8 ТНЕИ РРІЫТ " +"; 

1185 СОТО 1200 

1190 ІР МО=ММ8 ТНЕИ РРІЫТ ” 

1200 РЕХТ ЫСС 

1210 ІР МО=ММ8 ТНЕИ РРШТ 

1215 РЕТПРЧ 


Листинг 51 


1 РЕМ Меню 

2 РЕМ ІВМ РС ВА8ІС 

10 ОІМ РР0С$(64) : ЫЬ=8 . СИ=18 : ЬС=65 

20 8СРЕЕИ О : КЕѴ ОРР : КЕѴ 1"гип"+СНР$(34К'МЕЫЦ"+СНР$(13) 
30 С 1,8 : ИЮТН 80 : СОЬОР 0.0 : РІЬЕЗ "*.Ьа8" 

40 РОР т%=2 ТО 24 

50 РОР 0С*=0 ТО ЬС 8ТЕР СИ 

60 ІР СНР$(ЗСРЕЕВДЭК%Л)С*+1)) = " " ТНЕК 130 

70 АР*=АР*4І 

80 РОР ІА=1 ТО N1, 

90 РР0С$(АР*)=РР00$(АР*КНР$(ЗСРЕЕЫ(0Р%,ВС%+[,*)) 
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100 ЫЕХТ Ь* 

НО ЫЕХТ ОС* 

120 ЫЕХТ БК* 

130 Р=0 : І*=0 : СЬЗ : ИЮТН 40 : ЬОСАТЕ 1,4 : СОЬОК 14,0 
135 РКІЯТ " В КАТАЛЗГЕ ИМЕЮТСЯ ПРОГРАММЫ:" 

140 РОЕ 0С*=1 ТО 27 8ТЕР 13 
150 РОЕ 0К*=3 ТО 23 
160 І*=І*+1 

170 ІР РЕОС$а*Н'' ТНЕИ 200 ЕІ.ЗЕ ЬОСАТЕ ОК*,ОС* 

175 СОЬОК 0,7 : РКІИТ ЯЗШС "##";І*; 

176 СОЬОК 7,0:РКІЯТ " ";РК06$(І*) 

180 ИЕХТ БЕ* 

190 ИЕХТ ОС* 

200 ЬОСАТЕ 25Д : ГОРИТ 'ВВЕДИТЕ НОМЕР НУЖНОЙ ПРОГРАММЫ", Р 
210 ІР Р < 1 ОЕ Р >= I* ТНЕИ 130 
220 ИГОТН 80 : СЬЗ 

230 РКІЯТ "КОГДА ПРОГРАММА ЗАКОНЧИТСЯ, НАЖМИТЕ Р1, " 

240 РКІЯТ "ЧТОБЫ ВЕРНУТЬСЯ В МЕЯІГ 
240 К11Я РЕОС$(Р) 


Листинг 52 

1000 КЕМ ПОДПРОГРАММА "ТРАФАРЕТ' 

1003 ЕЕМ ІВМ РС ВАЗІСА 
1005 ЕЕМ АВТОР Г.ГНЕЗДИЛ0ВА 

1010 ЕЕАО ЯШОРРІО 'ЧИСЛО ФИГУР, СОСТАВЛЯЮЩИХ КАРТИНКУ 

1020 РОК 1=1 ТО ШМОРРІС 

1030 ЕЕ АО РІСТѴРЕ ВИД ФИГУРЫ 

1040 ОД РІСТѴРЕ СОТО 1200, 1300, 1400, 1500 

1050 РКШТ 'ОШИБКА В ОПИСАНИИ КАРТИНКИ" : Е№ 

1060 ЯЕХТ 
1070 КЕТ11КЯ 

1200 КЕМ ЛОМАНАЯ 

1210 КЕАО N 'ЧИСЛО ВЕРШИН ЛОМАНОЙ 

1220 ІР N < 2 ТНЕЯ 1050 

1230 КЕАО XI, VI 

1240 РОК Л =2 ТО N 

1250 ЕЕАО Х2, Ѵ2 : ЬІЯЕ (ХШНХ2Ѵ2) 

1260 Х1=Х2 : Ѵ1=Ѵ2 
1270 ЯЕХТ 
1280 СОТО 1060 

1300 ЕЕМ ПРЯМОУГОЛЬНИК 
1310 ЕЕАО XI, VI, Х2 Ѵ2 
1320 ЫЯЕ (XI, Ѵ1НХ2 Ѵ2)„В 
1330 СОТО 1060 

1400 ЕЕМ ТРЕУГОЛЬНИК 

1410 ЕЕАО XI, П Х2 Ѵ2, ХЗ, УЗ : ЬІЯЕ (ХШНХ2Ѵ2) 

1420 ЫЯЕ (ХШНХЗ.ѴЗ) : ЬІЯЕ (Х2,Ѵ2НХЗ,ѴЗ) 

174 



1430 СОТО 1060 


1500 РЕМ ОКРУЖНОСТЬ 
1510 КЕАБ Х1У1К 
1520 СІКСБЕ (XIVI),К 
1530 СОТО 1060 


Листинг 53 

100 КЕМ ПОДПРОГРАММА. БУКВЫ ОТ А ДО Я. 

103 КЕМ ІВМ РС ВА8ІСА 
105 РЕМ АВТОР Г.ГНЕЗДИЛОВА 
ПО РЕМ ИСХОДНЫЕ ДАННЫЕ: 

120 КЕМ А$-БУКВА 

130 РЕМ ХБЕРТ, ѴВОТТОМ - КООРДИНАТЫ ЛЕВОГО 
140 РЕМ НИЖНЕГО УГЛА ПРЯМОУГОЛЬНИКА НА ЭКРАНЕ 
150 АЬР$ = "АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЭЮЯ" 

160 Ь=Ш8ТК( АБР$ , А$) 

170 ІР Б=0 ТНЕИ РЕІИТ "НЕТ БУКВЫ' : КЕШКИ 

180 КЕЗТОКЕ 

1Я0 РОК 1=1 ТО Б-1 

200 КЕАБ М 

210 РОК Л=1 ТО М 

220 КЕАБ XI VI, Х2, Ѵ2 

230 ИЕХТ 3 

240 ИЕХТ I 

250 КЕАБ М 

260 РОЕ Л=1 ТО М 

270 КЕАБ XI, П Х2, Ѵ2 

260 Х1=ХВХБЕРТ : Х2=Х2+ХБЕРТ 

290 Ѵ1=ѴВ0ТТ0М - VI : Ѵ2=ѴВ0ТТ0М - Ѵ2 

300 ЦИЕ (XI, У1НХ2.Ѵ2) 

310 ИЕХТ 
320 КЕШКИ 


Листинг 54 

100 КЕМ ПОДПРОГРАММА ДЛЯ РИСОВАНИЯ ПО ТОЧЕЧНОМУ 

103 РЕМ ШАБЛОНУ, ЗАКОДИРОВАННОМУ ПОСЛЕДОВАТЕЛЬНОСТЯМИ 

105 КЕМ НУЛЕЙ И ЕДИНИЦ 

107 КЕМ ІВМ РС ВА8ІСА 

ПО РЕМ АВТОР Г.ГНЕЗДИЛ0ВА 

115 РЕМ ИСХОДНЫЕ ДАННЫЕ 

И7 РЕМ Ш1М0РК0Ю - ЧИСЛО СТРОК В ШАБЛОНЕ 

120 РЕМ ШМОРСБМИ - ЧИСЛО СТОЛБЦОВ В ШАБЛОНЕ 

125 РЕМ ХБЕРТ, ѴЧР - КООРДИНАТЫ ЛЕВОГО 

130 РЕМ ВЕРХНЕГО УГЛА ОБЛАСТИ ЭКРАНА 

140 Х=ХБЕРТ : У=ѴЧР 

150 РОЕ 1=1 ТО НШІОРКОИ 

160 РОЕ Л=1 ТО НЧМОРСБМИ 

170 ЕЕАБ С 



180 ІР С=0 ТНЕЫ РКЕ8ЕТ(Х,Ѵ) ЕІ.ЗЕ Р8ЕТ (XV) 
190 Х=Х+1 
200 ЫЕХТ 

210 Ѵ=Ѵ+1 : Х-ХЬЕРТ 
220 ЫЕХТ 
230 кетши 


Листинг 55 

100 КЕМ ПОДПРОГРАММА ДЛЯ РИСОВАНИЯ ПО ТОЧЕЧНОМУ 

103 КЕМ ШАБЛОНУ, ЗАКОДИРОВАННОМУ ПОСЛЕДОВАТЕЛЬНОСТЯМИ 

105 КЕМ ШЕСТНАДЦАТИРИЧНЫХ ЧИСЕЛ 

107 КЕМ ІВМ РС ВА8ІСА 

ИО КЕМ АВТОР Г.ГНЕЗДИЛОВА 

120 КЕМ ИСХОДНЫЕ ДАННЫЕ 

130 КЕМ ШМОРКОИ - ЧИСЛО СТРОК В ШАБЛОНЕ 

140 КЕМ ШМОРСЬМЦ - ЧИСЛО СТОЛБЦОВ В ШАБЛОНЕ 

150 КЕМ ХБЕРТ - КООРДИНАТЫ ЛЕВОГО ВЕРХНЕГО УГЛА 

160 КЕМ ѴЦР - ОБЛАСТИ ЭКРАНА 

170 КЕМ Ѵ=ѴЦР 

180 РОК 1-1 ТО ШІМОРКОИ 

190 Х-ХБЕРТ ь ЦЦМОРСБМЫ - 1 : КЕАЦ С 

200 РОК ,1=1 ТО ШМОРСЦіГО 

210 ІР С МОБ 2 = 1 ТНЕИ Р8ЕТ(Х,Ѵ) ЕБ8Е РКЕЗЕТ(ХѴ) 

220 С=С\2 : Х=Х 1 
230 ИЕХТ 
240 Ѵ=Ѵ+1 
250 ЫЕХТ 
260 КЕТІІКМ 
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1 КЕМ ХУДОЖНИК 

2 КЕМ ІВМ РС ВА8ІСА 

3 КЕМ АВТОР Г.ГНЕЗДИЛ0ВА 
5 БІМ СІ1К(5) 

10 ЗСКЕЕЫ 2 : КЕѴ ОРР : СЬ8 

20 КЕМ СТРОИМ КУРСОР 

30 Х=100 : Ѵ=ЮО 

40 РОК 1=1 ТО 5 

50 РОК ,1=1 ТО 5 

60 КЕАО С : Р8ЕТ (XV),С : Х=Х+1 

70 ЫЕХТ 

80 Х=100 : Ѵ=Ѵ+1 

90 ЫЕХТ 

100 СЕТ (ЮОД00НЮ5Д05), СЦК 
ПО КЕМ НАЗВАНИЕ РИСУНКА 
120 СЬЗ 

130 ШРЦТ "НАЗВАНИЕ РИСУНКА (НЕ БОЛЕЕ 8-МИ СИМВОЛОЙ)Г;А$ 
140 ІР ЬЕЯ(А$) > 8 ТНЕИ 130 
150 А$=А$+".РІС" 

160 ОРЕЫ А$ РОК ОПТРЦТ А8 #1 
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170 РЕМ ВОЗМОЖНЫЕ КОМАНДЫ 
180 СЬЗ 

190 ЬОСАТЕ 23,1 

200 РКШТ "БИТЕР-КОНЕЦ + - ОПУСТИТЬ ПЕРО, - ПОДНЯТЬ ПЕТО"; 

210 ЬОСАТЕ 24,1 

220 РРШТ "СогІІр, СигОоип, СигІ.еТІ, СигРІеЫ 
230 РРШТ "ВВЕРХ, ВНИЗ, ВЛЕВО, ВПРАВО"; 

240 ЬОСАТЕ 25Д 

260 РРШТ "Ни, Реіір, ЕпсІ, Р^П - ВВЕРХ И ВЛЕВО,”; 

260 РРШТ "ВВЕРХ И ВПРАВО, ВНИЗ И ВЛЕВО, ВНИЗ И ВПРАВО'; 

300 РЕМ ОСНОВНОЙ ЦИКЛ 

305 РЕМ ЖУЧОК В ЦЕНТРЕ ЭКРАНА, ПЕРО ОПУЩЕНО 
310 ХСЦК=160 : ѴСЦК=ЮО : Х=160 : Ѵ=100 : Р=1 : 8$=^" 

315 рит (хсир, усир), сцр 

320 0$=ІИКЕУ$ : ІЕ 0$-'" ТНЕИ 320 

330 ІР 0$=СНР$(13) ТНЕИ 1800 РИСОВАНИЕ ОКОНЧЕНО 

340 ІР 0$=СНР$(43) ТНЕИ 2000 ОПУСТИТЬ ПЕТО 

350 ІР 0$=СНР$(45) ТНЕИ Р=0 ; СОТО 320 'ПОДНЯТЬ ПЕРО 

360 ІР( І,ЕИ(0$)О2)ТНЕИ 320 

370 о$=ріснт$(о$,і) 

380 ІР <3$=СНР$(72) ТНЕИ Ѵ=У-1 : К=1 : СОТО 470 ВВЕРХ 

390 ІР (3$-СНР$(80) ТНЕИ Ѵ=Ѵ+1 : К=2 ; СОТО 470 ВНИЗ 

400 ІР 0$=СНР$(77) ТНЕИ Х=Х+1 : К=3 : СОТО 470 ВПРАВО 

4Ю ІР 0$=СНР$(75) ТНЕИ Х=Х-1 : К=4 : СОТО 470 ВЛЕВО 

420 ІР 0$=СПР$(71) ТНЕИ Ѵ=У-1 : Х=Х 1 : К=5 : СОТО 470 ВВЕРХ-ВЛЕВО 

430 ІР 0$=СНР$(73) ТНЕИ У=У-1 : Х=Х+1 : К=6 : СОТО 470 ВВЕРХ-ВПРАВО 

440 ІР <3$=СНР$(79) ТНЕИ У=Ѵ+1 : Х=Х-1 : К=7 : СОТО 470 ВНИЗ-ВЛЕВО 

450 ІР <3$=СНР$(8]) ТНЕИ У=У+1 : Х=Х+1 : К=8 : СОТО 470 ВНИЗ-ВПРАВО 

460 СОТО 320 

470 ІР(Х>=0) АШ (Х<=630) АШ (У>=0) А№ (У<-170) ТНЕИ 500 
480 ВЕЕР : Х=ХСЦР : У=ѴСЦР : СОТО 320 
500 РЦТ(ХСЦК,ѴСЦК1 СЦР 
5Ю ІР Р=0 ТНЕИ 540 

520 ОИ К СОЗЦВ 1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700 
530 ІР ЬЕЯ(8$) > 240 ТНЕИ РРШТ М, 3$ : 3$-"' 

540 ХСЦР=Х : ѴСЦР=Ѵ : РЦТ (ХС11Р, ѴСЦР), СЦР : СОТО 320 
1000 РЕМ ДВИЖЕНИЕ ВВЕРХ 
1010 ЦРАИ 'ТО' : 3$=8$+"ЦГ 
1020 РЕТЦРИ 

1100 РЕМ ДВИЖЕНИЕ ВНИЗ 
1110 О РАИ ’ТО" : 8$=8$+"Ш" 

1120 РЕТЦРИ 

1200 РЕМ ДВИЖЕНИЕ ВПРАВО 
1210 ЦРАИ "Р1" : 5$=8$+"Р1" 

1220 КЕТЦКИ 

1300 КЕМ ДВИЖЕНИЕ ВЛЕВО 
1310 йРАИ "Ы" : 8$=8$+"Ы' 

1320 КЕТЦРИ 

1400 РЕМ ДВИЖЕНИЕ ВВЕРХ И ВЛЕВО 


12. Зак. 318 
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1410 БРАИ "Н1" : 5$=5$+"НГ 
1420 РЕТОРЯ 

1500 НЕМ ДВИЖЕНИЕ ВВЕРХ И ВПРАВО 
1510 БРАЮ "Е1” : 5$=5$+”ЕГ 
1520 РЕТ11РЯ 

1600 КЕМ ДВИЖЕНИЕ ВНИЗ И ВЛЕВО 
1610 0РА№ "01" : Я$=3$+"СГ 
1620 РЕТ11РЯ 

1700 РЕМ ДВИЖЕНИЕ ВНИЗ И ВПРАВО 
1710 ОКАЮ "Р1" : 3$‘ 8$+"Р1" 

1720 РЕТ11РЯ 

1800 РЕМ РИСОВАНИЕ ОКОНЧЕНО 
1810 ІР ЬЕЯ(5$>0 ТНЕЯ РКІЯТ «, 3$ 

1820 ЕЯБ 

2000 КЕМ ОПУСТИТЬ ПЕРО 
2010 ІР Р=1 ТНЕЯ СОТО 320 
2020 Р=1 

2030 А$="ВМ м +8ТК$(ХСиНК","+5ТР$(УСПР) 
2040 БРАИ "ХА$;" 

2042 ІР ЬЕЯ(5$>0 ТНЕЯ РРІЯТ #1,3$ 

2045 5$=СНР$(34}+А$+СНР$(34) 

2050 РНШТ #1, 3$ : 5$=”’ 

2060 СОТО 320 

2100 НЕМ ТОЧЕЧНЫЙ ШАБЛОН ДЛЯ КУРСОРА 

2110 ДАТА X % X О, О 

2120 БАТА 1, 1, О, О, О 

2130 БАТА X О, X О, О 

2140 ВАТА О, О, О, 1, О 

2150 БАТА О, О, О, О, 1 
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1000 РЕМ ПОДПРОГРАММА ДЛЯ ВОСПРОИЗВЕДЕНИЯ 

1010 РЕМ НА ЭКРАНЕ КАРТИНКИ, СОЗДАННОЙ 

1020 РЕМ С ПОМОЩЬЮ ПРОГРАММЫ "ХУДОЖНИК" 

1030 РЕМ ІВМ РС ВА5ІСА 

1040 РЕМ АВТОР ГГНЕЗДИЛОВА 

1050 РЕМ ПРИ ОБРАЩЕНИИ К ПОДПРОГРАММЕ ВСЕ 

1060 РЕМ ФАЙЛЫ ДОЛЖНЫ БЫТЬ ЗАКРЫТЫ 

1070 РЕМ А$-ИМЯ ФАЙЛА С КАРТИНКОЙ 

1100 ОРЕЯ А$ РОК ІЯРЦТ АЗ #1 

1110 ДРАЮ "ВМІбОДОО" 

1120 ННІЬЕ ЯОТ(ЕОРСІ)) 

изо іярпт *х в$ 

1140 БКАИ "ХВ$;" 

1150 ЮЕЯО 
1160 СЬОЗЕ #1 
1170 РЕТ11РЯ 
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10 КЕМ - ИГРА "ХОЛОДНО-ГОРЯЧО" 

12 КЕМ ІВМ РС ВА8ІС 
15 КЕМ Автор - Г.Сенин 

20 КЕМ - АХ, АѴ - координаты игрока 

30 КЕМ - случайно выбираются недалеко от сокровища 

40 АХ=К№+1: АѴ=КШ+1 

50 КЕМ - ВХ, ВУ - координаты сокровища 

60 ВХ=0 : ВѴ=0 

70 КЕМ - Основной цикл 

60 РКІЯТ "КУДА ПОЙДЕТЕ";:ШРОТ БАХ, БАѴ 
90 N=N+1 

100 КЕМ - изменение координат игрока 

ПО АХ=АХ+ОАХ: АУ=АѴ+ОАѴ 

120 КЕМ-сокровище перемещается. . . 

130 ВХ=ВХ+КШ~.5 
140 ВѴ=ВѴ+КЯО- . 5 

150 КЕМ - вычисляется расстояние до сокровища 

160 В=3(ЗК( (АХ-ВХ)'2 + (АѴ-ВѴ)"2) 

170 РКІЯТ "РАССТОЯНИЕ =";Б 

180 КЕМ - условие повторения цикла: расстояние не меньше 1 

190 ІР В >= 1 ТНЕЯ СОТО 80 

200 РКІЯТ "ПОЗДРАВЛЯЮ, НАЙДЕНО ЗА";N;"ХОДОВ." 

210 ЕЯЙ 
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10 КЕМ- ИГРА "ХОЛОДНО-ГОРЯЧО" 

20 КЕМ-АХ, АѴ - координаты игрока 

30 КЕМ-случайно выбираются недалеко от сокровища 

40 АХ:=КАЯООМ+1; АѴ:=КАШ0М+1 

50 КЕМ-ВХ, ВѴ - координаты сокровища 

60 ВХ:=0; ВѴ:=0 

70 КЕМ-Основной цикл 

80 ИКІТЕЛЯ ('КУДА ПОЙДЕТЕ?); КЕАОЬЯ (ЛАХ, ПАѴ) 

90 №=N+1 

100 КЕМ-изменение координат игрока 

110 АХ:=АХ+ПАХ; АУ-АѴ+ОАѴ 

120 КЕМ-сокровище перемещается.. 

130 ВХ:=ВХ+КАЯПОМ-0.5 
140 ВѴ-ВѴ+КАЯПОМ-0.5 

150 КЕМ-вычисляется расстояние до сокровища 

160 І>=80КТ((АХ-ВХ)"2-КАѴ-ВѴГ2) 

170 ИКІТЕЬЯ (РАССТОЯНИЕ =?, О) 

180 КЕМ -условие повторения цикла: расстояние не меньше 1 

190 ІР П >= 1 ТНЕЯ 80 

200 ИКІТЕЬЯ (ПОЗДРАВЛЯЮ, НАЙДЕНО ЗА’, Я, ХОДОВ.) 

210 ЕЯЛ 
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РЕМ ИГРА "ХОЛОДНО-ГОРЯЧО" 

РЕМ — АХ, АѴ - координаты игрока 

РЕМ — случайно выбираются недалеко от сокровища 

АХ:=РАЮОМИ; АѴ:=РАШ0М+1 

РЕМ — ВХ, ВѴ - координаты сокровища 

ВХ:=0; ВѴ:=0 

РЕМ Основной цикл 

РЕРЕАТ 

ТУВГГЕШ (КУДА ПОЙДЕТЕ?); КЕАПЬЙ (БАХ, ИАУ) 
№=N+1 

РЕМ — изменение координат игрока 

АХ:=АХ+ОАХ; АУ:=АУ+ОАѴ 

НЕМ — сокровище перемещается... 

ВХ:=ВХ+РАШ0М-0.5 

ВѴ:=ВѴ+РАШ0М-0.5 

РЕМ — вычисляется расстояние до сокровища 
й=ЗдРТ((АХ-ВХГ2+{АѴ-ВѴГ2) 

МРИЕЬИ (РАССТОЯНИЕ =', Д) 

РЕМ — условие выхода из цикла 
ШШЬ О < 1 

ИРІТЕЬМ (ТЮЗДРАВЛЯЮ, НАЙДЕНО ЗА', N. ХОДОВ. 1 ) 

Е№ 
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(* — ИГРА "ХОЛЭДНО-ГОРЯЧО" *) 

РРОСРАМ СОКРОВИЩЕ; 

(* описание переменных *) 

ѴАР АХ, АУ, ВХ, ВѴ, ОАХ, ОАѴ, Гк РЕАЬ; 

№ ШТЕСЕВ; 

ВЕСІИ (* начало программы *) 

№= 0 ; 

(* АХ, АѴ - координаты игрока *) 

(* случайно выбираются недалеко от сокровища *) 
АХ:=КАШ0М+1; 

АѴ:-РАКВ0М+1; 

С* ВХ, ВУ - координаты сокровища *) 

ВХ:=0; ВѴ:=0; 

(* Основной цикл *) 

РЕРЕАТ 

ИРІТЕ ('КУДА ПОЙДЕТЕ? Ъ 
РЕДДІ^ (ОАХ, ОАУ); 

№=N+1; 

С* изменение координат игрока *) 
АХ:=АХ+ВАХ; АУ:=АУ+ОАУ; 

(* сокровище перемещается., *) 
ВХ:=ВХ+РАШ0М-0.5; 

ВѴ:=ВѴ+РАШ0М-0.5; 

(* вычисляется расстояние до сокровища *) 
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0:=ЗС!КТ((АХ-ВХ)~2+(АѴ~ВѴ)~2); 

ИКІТЕЬК (РАССТОЯНИЕ =', Б); 

(* условие выхода из цикла *) 

ШШЬ И < 1; 

ИКІТЕІ.И ('ПОЗДРАВЛЯЮ, НАЙДЕНО ЗА N. 1 ХОДОВ.')! 
ЕНО. 
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5 КЕМ ИГРА "ХОЛОДНО-ГОРЯЧО" (улучшенная версия) ^ 
10 КЕМ ІВМ РС ВАЗІС 
15 КЕМ Автор - Г.Сенин 
20 КЕМ — очистка экрана 
30 СІ.З 

35 КАШОМІ7.Е (ѴАІі (КІ0НТ$(ТІМЕ$,2))) 

40 КЕМ АХ, АѴ - координаты игрока 

50 КЕМ случайно выбираются недалеко отг сокровища 

60 АХ-80К(КК0 -0.5)*(ККІМ) 

70 АѴ=8СМ(Кт-0.5)*(КНОг1) 

80 КЕМ ВХ, ВѴ координаты сокровища 
90 ВХ=0:ВѴ=О 

95 КЕМ-Основной цикл 

100 РКШТ "КУДА ПОЙДЕТЕ’ДУРІІТ ПАХ, ПАУ 
НО ІР АВЗфАХ) > 2 ОК АВЗ(ПАУ) > 2 ТНЕИ 100 
120 N=N<-1 

130 КЕМ-изменение координат игрока 

140 АХ=АХ+ПАХАѴ=АѴ*ОАѴ 

150 КЕМ-сокровище перемещается.. 

160 ВХ-ВХ+КМ1 -0.5 
170 ВѴ-ВѴ+КН0-0.5 

180 КЕМ-вычисляется расстояние до сокровища 

190 0’8С!К((АХ-ВХ)‘2+{АѴ- ВѴ)'2) 

200 РКШТ 'РАССТОЯНИЕ Р'рРКШТ 1151 N0 "##.##";П 

210 КЕМ-условие повторения цикла 

220 ІЕ 0 >= 1 ТНЕИ 100 

230 РКШТ "ПОЗДРАВгаЮ. НАЙДЕНО ЗА";К;'ХОДОВ." 

240 ЕМ) 
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(* ИГРА "ХОЛЭДНО-ГОРЯЧСГ *) 

(* Турбо-Паскаль *) 

(* Автор - Г.Сенин *) 

РКОСКАМ ТКЕАЗПКЕ; 

(* описание переменных *) 

ѴАК АХ, АѴ, ВХ, ВѴ, БАХ, ОАѴ, І>. КЕАЬ; 
№ ІКТЕОЕК; 

(* описание функции *) 

РІШСТІОК ЗС.К (X: КЕАІД ІКТЕОЕК; 
ВЕСІК 

ІР Х>0 ТНЕМ 3«№=1 ЕЬЗЕ ІР 
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Х=0 ТНЕН 8С№=0 
ЕЬЗЕ 36№=-1; 

ЕНО; 

(* конец описаний *) 

ВЕСІИ (* начало преграммы *) 

№= 0 ; 

СХКЗСК; (* очистка экрана *) 

(* АХ, АѴ - координаты игрока *) 

(* случайно выбираются недалеко от сокровища *) 

АХ:=56Н(КА№0М-0.5)*(ІШГО0М+:і); 

АѴ:=ЗСН(КАШ0М-0.5)*(КА№0МК1); 

(* ВХ, ВѴ - координаты сокровища *) 

ВХ:=0; ВѴ;=0; 

(* Основной цикл *) 

КЕРЕАТ 

ВЕРЕАТ 

ИВІТЕ (КУДА ПОЙДЕТЕ? >, 

КЕАВЬИ (ОАХ, БАУ); 

ЦИЛЬ (АВЗ(ОАХ) <= 2) АШ (АВЗ(0АѴ) <= 2\ 

№=№■]; 

(* изменение координат игрока *) 

АХ-АХ+БАХ; АѴ:=АѴ+ОАѴ; 

(* сокровище перемещается,. *) 
ВХ:=ВХ+ІШЮ0М-0.5; 

ВѴ:=ВѴ+ВА№0М-0.5; 

(* вычисляется расстояние до сокровища *) 
Г);=К0КТ(30К(АХ-ВХКЗдК(АѴ-ВѴ)); 

ИКІТЕШ СРАССТОЯНИЕ =', й2:2); 

(* условие выхода из цикла *) 

ШЛЧЬ О < 1; 

ИКІТЕЬИ (ПОЗДРАВЛЯЮ, НАЙДЕНО ЗА ', N. 1 ХОДОВ/); 
ЕШ 



ПРИЛОЖЕНИЕ 

Приказы, операторы и функции 
языка Альфа-Бейсик 

АВ8 (функция). Возвращает абсолютную величину аргумента. 

Формат: АВ8 (арифметическое выражение) 

А8С (функция). Возвращает код первого символа строки. 

Формат: А8С (строковое выражение) 

АТN (функция). Возвращает арктангенс аргумента в радианах. 

Формат: АТN (арифметическое выражение) 

ВЕЕР (оператор). Генерирует звуковой сигнал. 

Формат: ВЕЕР 

СНК|/ (функция). Возвращает символ,имеющий заданный код. 
Формат: СНК8' (кодсимвола) 

СШТ (функция). Возвращает целое число, полученное округлени¬ 
ем аргумента. 

Формат: СШТ (арифметическое выражение) 

СІКСЬЕ (оператор). Рисует на экране окружности,эллипсы,дуги 
и секторы. 

Основной формат: 

СГКбЬЁ (X центра, У центра), радиус, цвет, начальный 
угол .конечный угол, отношение осей эллипса 
СЕ08Е (оператор). Завершает обработку файла. 

Основной формат: СШ8Е # номер файла 
СЬ8 (оператор). Очищает экран дисплея. 

Формат: сиз 

СОШК (оператор). Управляет цветом изображения на экране. 
В текстовом режиме задает цвета символов, фона и рамки 
экрана. 

Основной формат: 

СОШК цвет символов, цвет фона, цвет рамки. 

В графическом режиме задает цвет фона одну из двух палитр 
(гамм) цветов для построения графического изображения. 
Основной формат: СОШК цвет фона, палитра 
СОЭТ (оператор). Возобновляет исполнение программы, приоста¬ 
новленной с клавиатуры или оператором 8ТОР. 

Формат: СОШ 1 
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С08 (функция). Возвращает косинус угла, заданного в радианах. 

Формат: С08 (угол в радианах) 

С8КБШ (функция). Возвращает текущую координату У курсора. 

Формат: С8КБШ 

БАТА (оператор). Задает список констант для оператора КЕАВ. 

Основной формат: БАТА список констант 

БЕР РИ (оператор). Определяет функцию. 

Основной формат: 

БЕР РN имя функции (список аргументов) = выражение 

БІМ (оператор). Задает максимальные значения индексов масси¬ 
ва, отводит память и выполняет начальные присваивания (нуль 
для числовых массивов, пустая строка для строковых). 

Основной формат : 

БІМ имя массива (максимальное значение индекса) 

БКА\Ѵ (оператор). Исполняет графические команды для рисова¬ 
ния на экране произвольных фигур. Могут быть исполнены 
команды движения (Ш, Бп, Ел, Кп, Еп, Рп, Сп, Нп, Мх,у, 
М±х, ± у), поворота (Ап), масштабирования (8п), выбора цвета 
(Сп). 

Формат: ВКАІѴ "список графических команд” 

ЕОР (функция). Возвращает истинное значение (—1), если до¬ 
стигнут конец файла, ложное значение (0) — в противном слу¬ 
чае. 

Формат: ЕОР (номер файла) 

БЫВ (оператор). Завершает исполнение программы. 

Формат: ЕИБ 

ЕКЬ (функция). Возвращает номер строки, при исполнении ко¬ 
торой была обнаружена ошибка. 

Формат: ЕКЬ 

ЕКК (функция). Возвращает номер ошибки. 

Формат: ЕКК 

ЕККОК (функция). Моделирует ошибочную ситуацию с заданным 
кодом ошибки. 

Формат: ЕККОК кодошибки 

ЕХР (функция). Возвращает число е в степени х. 

Формат: ЕХР(Х) 

РІІЕ8 (приказ). Выводит на экран список имен файлов 

Основной формат: РІІЕ8 

РОК-ИЕХТ (операторы). Исполняют в цикле последовательность 
операторов между РОК и МБСТ 

Основной формат: 

РОК переменная = начальное значение Іо конечное значение 

8ТЕР шаг :...: №ХГ 

СЕТ (оператор). Запоминает номера цветов точек прямоугольной 
области экрана в массиве. 

184 



Формат: СЕТ (х1,у1)-(х2,у2),имя массива 
С08ЦВ-КЕТОКЫ (операторы). Оператор С081® передает управ¬ 
ление подпрограмме в строке с указанным номером. Опера¬ 
тор ЯЕТОКЫ возвращает управление оператору, стоящему 
после оператора 0081® 

Основной формат: 

0081® номер строки 

КЕТОНЫ 

СОТО (оператор). Передает управление операторам указанной 
строки. 

Формат: СОТО номер строки 

ІР-ТНЕЫ-ЕЦ8Е (оператор). Организует ветвление в программе в 
зависимости от того удовлетворено ли заданное условие. 

Основной формат: ІР условие ТНЕЫ номер строки ЕЬ8Е но¬ 
мер строки 

ІЫКЕУ8 (функция) . Возвращает символ, введенный с клавиату¬ 
ры, или пустую строку, если символ не был введен. 

Формат: ІЫКЕУ? 

ІЫРЦТ (оператор). Выдает на экран сообщение, вводит с клавиа¬ 
туры числовые и строковые значения и присваивает их ука¬ 
занным переменным. 

Формат: ІЫРЦТ "сообщение”; список переменных 
ІЫРІГГ? (функция). Вводит указанное число символов с клавиа¬ 
туры или из файла. 

Формат: ІЫРЦТ? (число символов) 

ІЫРЦТ? (число символов, # номер файла) 

ІЫРЦТ # (оператор). Вводит из файла числовые и строковые зна¬ 
чения и присваивает их указанным переменным. 

Основной формат: ІЫРЦТ # номер файла,список переменных 
ІЫ8ТК (функция). Возвращает позицию вхождения в строку за¬ 
данной подстроки или нуль, если вхождения нет. Поиск мо¬ 
жет быть начат с любого места строки. 

Формат: ІЫ8ТК (начало поиска,строка,подстрока) 

ІМГ (функция). Возвращает целую часть аргумента. 

Формат: ІЫТ(Х) 

КЕУ (оператор). Задает текстовое определение функциональной 
клавиши. 

Формат: КЕУ номер функциональной клавиши,строка 
КЕУ Ы8Т (оператор). Выдает на экран текстовые определения 
всех функциональных клавиш. 

Формат: КЕУ ІЛ8Т 

КЕУ ОЫ или КЕУ ОРР (оператор). Отображает или удаляет в 
последней строке экрана текстовые определения функцио¬ 
нальных клавиш. 


Формат: КЕУ (Ж или КЕУ ОРР 
КЕУ(п) (оператор). Управляет обработкой указанной функцио¬ 
нальной клавиши или клавиши управления курсором. 

Формат: КЕУ(п)(Ж или КЕУ(п)ОРР или КЕУ(п)8Т0Р 
ІііРТ# (функция). Возвращает ’^левую” подстроку заданной 
строки. 

Формат: ІііЕТ$ (строка, количество символов) 

ЬЕМ (функция). Возвращает длину строки. 

Формат: ІЛЖ (строка) 

ЬЕТ (оператор). Присваивает значение переменной. 

Основной формат: ІЕТ переменная - выражение 
ЬШЕ (оператор) . Рисует на экране отрезок или прямоугольник. 

Основной формат: 

ЬШЕ (х1,у1) -(х2,у2),цвет,В 

ІЖЕ ШРІГГ (оператор). Выдает на экран сообщение, вводит с 
клавиатуры строку символов (включая запятые) и присваи¬ 
вает ее указанной переменной. 

Основной формат: 

ЬШЕ ШРІГГ "сообщение”; строковая переменная 
ЬГЫЕ ІМРЦТ # (оператор). Вводит из файла строку символов и 
присваивает ее указанной строковой переменной. В отличие 
от оператора ШРЦТ# пробел, запятая и точка с запятой 
включаются в строку как обычные символы. 

Формат: ІЖЕ ЖРЕГГ # номер файла,строковая переменная 
ШСАТЕ (оператор). Управляет курсором. 

Основной формат: ШСАТЕ номер строки, номер столбца 
ШС (функция). Возвращает натуральный логарифм заданного 
числа. 

Формат: ШС (арифметическое выражение) 

МШ$ (функция) и МГО$ (оператор). Функция выделяет в стро¬ 
ке Х$ N символов начиная с символа с номером М. Оператор 
заменяет их подстрокой У$. 

Формат: МГО$(ХЛ1,МЖ)и Мт§(Х^(,МфО=Ѵ?! 

ОМ-СОТО и 0М-С08ЦВ (операторы). Действуют как переключа¬ 
тели. В зависимости от значения выражения, которое должно 
быть целым числом, передают управление на одну из строк, 
указанных в списке (соответствующую по счету), причем ОМ- 
С08ЦВ осуществляет переход с возвратом. 

Основной формат: 

ОМ выражение СОТО список номеров строк 

ОМ выражение С08ЦВ список номеров строк 
ОМ КЕУ (оператор). Указывает подпрограмму обработки функ¬ 
циональной клавиши или клавиши управления курсором. 

Формат: ОМ КЕУ (п) С08ЦВ номер строки 


186 



(Ж ЕККОК (оператор). Задает подпрограмму обработки ошибок. 

Формат: ОЫ ЕККОК СОТО номер строки 
ОРЕЫ (оператор). Готовит файл к вводу/выводу. 

Основной формат: 

ОРЕN имя файла РОК ЮТЦТ А8 # номер файла 

ОРЕN имя файла СОК ОЦТРЦТ А8 # номер файла 
РАЮТ (оператор). Закрашивает область, ограниченную замкну¬ 
тым контуром. Окраска начинается с точки с координатами 
(Х,Ѵ) 

Основной формат: РАЮТ (Х,Ѵ), цвет закраски,цвет контура 
РЬАѴ (оператор). Исполняет звуковые команды для воспроизве¬ 
дения мелодии. Могут быть исполнены следующие команды: 
С, О, Е, Р, С, А, В — воспроизвести соответственно ноты до,ре, 
ми, фа, соль, ля, си текущей октавы; Ілі, МЫ, МЬ, М8 — 
задать длительность звучания нот; Оп(0<п<6) — задать те¬ 
кущую октаву; Рп(1<п<64) — задать паузу; Тп(32<п< 
< 255) — задать темп исполнения; МВ,МР — исполнять мело¬ 
дию соответственно с одновременным исполнением програм¬ 
мы или с приостановкой программы до завершения мелодии. 

Формат: РІАУ "список звуковых команд” 

РОЮТ (функция). Возвращает номер цвета точки экрана с задан¬ 
ными координатами. 

Формат: РОЮТ (X, У) 

Р08 (функция). Возвращает текущую координату X курсора. 
При обращении следует указать фиктивный аргумент. 

Формат: Р08 (арифметическое выражение) 

РКЮТ и ЬРКШТ (операторы). Оператор РКШТ выводит дан¬ 
ные на экран, ЬРКЮТ — на печатающее устройство. 

Основной формат: 

РКЮТ список выражений 

ЬРКШТ список выражений 

РКЮТ 1)8ЖС и ЬРКЮТ ІІ5І1МС (операторы). Выводят данные 
по заданному формату на экран (РКЮТ ІІ8ШС) или на пе¬ 
чатающее устройство (ЬРКШТ ІІ8ШС) . Форматы для вывода 
строковых значений: ! — вывод первого символа строки; 
\п пробелов\ — вывод п+2 символов строки.Форматы для 
вывода числовых значений: # — задает количество цифр в 
целой и дробной частях числа; + — число выводится со зна¬ 
ком. 

Основной формат: 

РКЮТ ШШС "формат”; список выражений 

ЬРКШТ ІІ8ШС "формат”; список выражений 
РКЮТ# (оператор). Выводит данные в файл аналогично тому, 
как оператор РКЮТ выводит их на экран. 


187 



Основной формат : РКШТ # номер файла, список выражений 
Р8ЕТ и РКЕ5ЕТ (операторы). Высвечивают на экране точку за¬ 
данного цвета. Если цвет не указан, оператор Р8ЕТ выбира¬ 
ет цвет изображения, а оператор РКЕ8ЕТ — цвет фона. 

Основной формат: 

Р8ЕТ (Х,У), цвет 

РКЕ8ЕТ (Х,У), цвет 

РІЛ (оператор). Строит в прямоугольной области экрана изобра¬ 
жение по его коду, хранящемуся в указанном массиве. 

Формат: РІЛ (Х,У), массив 

КАХВ0МІ2Е (оператор). Задает исходное значение для генерации 
последовательности случайных чисел. 

Основной формат: КАЖЮМІ2Е N 
КЕАВ (оператор). Последовательно читает список констант, за¬ 
данный операторами ВАТА, и присваивает полученные значе¬ 
ния указанным переменным. 

Основной формат: КЕАВ список переменных 
КЕМ или ' (оператор). Включает в текст программы коммента¬ 
рий. 

Формат: КЕМ комментарий или комментарий 
КЕ8ТОКЕ (оператор). Устанавливает указатель, чтения на первый 
элемент списка констант, заданного операторами ВАТА. 

Основной формат: КЕ8ТОКЕ 

КЕ81ГМЕ (оператор). Возвращает управление в основную про¬ 
грамму из подпрограммы обработки ошибок. 

Основной формат: КЕ81МЕ 

КІСНТ$ (функция) .*Возвращает "правую” подстроку заданной 
строки. 

Формат: КЮНТ$ (строка, число символов) 

КЫВ (функция). Возвращает псевдослучайное положительное 
число меньшее единицы. 

Основной формат: К№) (арифметическое выражение) 
8СКЕЕN (оператор). Устанавливает режим работы экрана. 

Формат: ЗСЙЖ'І номер режима 
8СЫ (функция). Возвращает 1 .если аргумент положителен,0,ес¬ 
ли аргумент равен 0, и —1, если аргумент отрицателен. 

Формаі: 8СЫ (арифметическое выражение) 

8Ш (функция). Возвращает синус угла, заданного в радианах. 

Формат: 8Ш (угол в радианах) 

8РАСЕ$ (функция). Возвращает строку, состоящую из задан¬ 
ного числа пробелов. 

Формат: 8РАСЕ$ (число пробелов) 

8РС (функция). Вспомогательная функция для операторов 
РКШТ, ЬРКШТ, РКШТ #. Ее появление в списке параметров 
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этих операторов говорит о том, что в выводимую строку дол¬ 
жно быть вставлено указанное количество пробелов, 

Формат: 8РС (число пробелов) 

8<ЗК (функция). Возвращает квадратный корень аргумента. 

Формат: 8<ЗК (арифметическое выражение) 

8ТОР (оператор). Приостанавливает программу и дает возмож¬ 
ность выполнить различные отладочные действия. 

Формат: 8ТОР * 

8ТК$ (функция). Возвращает строковое представление числа. 

Формат: 8ТК % (арифметическое выражение) 

8ШАР (оператор). Обменивает значениями две числовые или две 
строковые переменные. 

Формат: 8\ѴАР (переменная 1, переменная2) 

ТАВ (функция). Функция табуляции для операторов РКІЫТ, 
ЬРКЮТ, РКІІМТ#. Печатает пробелы до указанной позиции 
текущей строки. 

Формат: ТАВ (арифметическое выражение) 

ТАЫ (функция). Возвращает тангенс угла, заданного в радианах. 

Формат: ТАN (угол в радианах) 

ѴАЬ (функция). Вычисляет число по его заданному строковому 
представлению. 

Формат: ѴАЬ (строковое выражение) 

ШПЬЕЛѴЕЫВ (операторы). Циклически исполняют группу опера¬ 
торов , пока истинно заданное условие. 

Формат: \УНІЬЕ условие 


\ѴЕШ 

ШБТН (оператор). Задает число символов в строке экрана. 

Формат: ШБТН 40 или \ѴШТН 80 
ШКІТЕ# (оператор) . Выводит данные в файл. Работает так же, как 
оператор РКШТ#, но имеет следующие отличия: при записи 
любых данных в файл разделяет их запятыми; строковые 
значения заключает в кавычки; в конце всех выведенных 
данных записывает символы "новая строка” и "возврат ка¬ 
ретки”. 

Формат: МИТЕ# номер файла, список выражений 
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